Public Sub ChangeSheet() On Error GoTo PROC_ERROR If (Not CheckButton) Then Exit Sub ThisWorkbook.Worksheets(Application.Caller).Select Exit Sub PROC_ERROR: MsgBox "予期しないエラーが発生しました。" & vbCrLf & vbCrLf & _ Format$(Err.Number) & ") " & Err.Description, vbCritical, "エラーメッセージ" End Sub