For i = 1 To Sheet.Count If Sheet(i).Name Like "*" & "探す名前" & "*" Then Sheet(i).Activate Exit For End If Next i 左から探して見つかったら終わっちゃうから、2つあってもそれは見つからない。 状況に応じて開始位置を変えてうまいことやろう。