指定したシートにジャンプするExcel VBAマクロ

jump_to_sheet.bas

Sub 指定したシートにジャンプ()
	Dim SheetPattern As String
	Dim s As Variant

	SheetPattern = LCase(InputBox("シート名を入力", "指定したシートにジャンプ", ""))
	If SheetPattern = "" Then
		Exit Sub
	End If

	For Each s In ActiveWorkbook.Sheets
		If LCase(s.Name) Like SheetPattern Then
			s.Activate
			Exit For
		End If
		If InStr(LCase(s.Name), SheetPattern) > 0 Then
			s.Activate
			Exit For
		End If
	Next
End Sub