シートをあいまい検索してアクティブにする

For i = 1 To Sheet.Count

   If Sheet(i).Name Like "*" & "探す名前"　& "*" Then

      Sheet(i).Activate

      Exit For

   End If

Next i

左から探して見つかったら終わっちゃうから、2つあってもそれは見つからない。

状況に応じて開始位置を変えてうまいことやろう。