【Excel VBA】Ifマクロを簡潔にしたい マクロの簡略化２

"H133"のセルが今月の数字になっており、その数字に応じてシートを選択するマクロを作りましたが、明らかに初心者が作ったような非効率なマクロになっているようで、保存時間に影響がでるので、なるべく短く訂正したいのですが、どうかご指導頂けると幸いです。
※Win8.1/7、Excel2010です。

Sub シートの選択()
If Range("H133") = 1 Then
Worksheets("1月").Select
End If
If Range("H133") = 2 Then
Worksheets("2月").Select
End If
If Range("H133") = 3 Then
Worksheets("3月").Select
End If
If Range("H133") = 4 Then
Worksheets("4月").Select
End If
If Range("H133") = 5 Then
Worksheets("5月").Select
End If
If Range("H133") = 6 Then
Worksheets("6月").Select
End If
If Range("H133") = 7 Then
Worksheets("7月").Select
End If
If Range("H133") = 8 Then
Worksheets("8月").Select
End If
If Range("H133") = 9 Then
Worksheets("9月").Select
End If
If Range("H133") = 10 Then
Worksheets("10月").Select
End If
If Range("H133") = 11 Then
Worksheets("11月").Select
End If
If Range("H133") = 12 Then
Worksheets("12月").Select
End If
If Range("F1") <> Range("H134") Then
MsgBox "この体温表は " & Range("F1") & " 年分です。" & vbCrLf & "　　 (現在は " & Range("H134") & " です)"
Worksheets("1月").Select
End If

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2016/01/22 20:09

Sub シートの選択()

If Range("H133") >= 1 And Range("H133") <= 12 Then
Worksheets(Range("H133") & "月").Select
End If

If Range("F1") <> Range("H1") Then
MsgBox "この体温表は " & Range("F1") & " 年分です。" & vbCrLf & "　　 (現在は " & Range("H134") & " です)"
Worksheets("1月").Select
End If

End Sub