時給計算表シートを月別に自動保存するVBAコード。時給の計算その７

Option Explicit
Dim MoShN As String

Sub シート保存()

Dim StD As Date, StM As Date, StY As Date, SMH As Date
Dim MoSh As Worksheet
Dim Sh As Worksheet
Dim res As Boolean

Call Module1.設定値代入

'計算するシートが存在するかを調べます
res = False
For Each Sh In Worksheets
    If Sh.Name = EmpName & "時給計算表" Then
        res = True
        Worksheets(EmpName & "時給計算表").Select
        Exit For
    End If
Next

'ない場合はプロシージャーを終了する
    If res = False Then
        MsgBox "まだ何も設定されていません。"
        Exit Sub
    End If

'セルB3にデータが無い場合はデータ記述なしとして終了します
If Range("B3") = "" Then Exit Sub

'時給計算表の書き出し日付を調べます
StD = Day(Worksheets(EmpName & "時給計算表").Range("B3"))
StM = Month(Worksheets(EmpName & "時給計算表").Range("B3"))
StY = Year(Worksheets(EmpName & "時給計算表").Range("B3"))

'書き出し日付と会計期間（日）の対比をします
'---------パターン1
If StD >= SD And StD <= ED Then
    SMH = StM

'---------パターン2
ElseIf StD < SD And StD <= ED Then 
　SMH = StM 

'---------パターン3
ElseIf StD >= SD And StD > ED Then
    SMH = StM + 1

'---------パターン4
Else
    MsgBox "会計期間（日）設定をチェックしてください。"

End If

Worksheets(EmpName & "時給計算表").Select

'13月を1月とします
If SMH = 13 Then
SMH = 1
StY = StY + 1
End If

'データ型を変更します（整数型に変更）
MoShN = CInt(StY) & "-" & CInt(SMH)


Worksheets(EmpName & "時給計算表").Copy After:=Worksheets(Worksheets.Count)

'シート名を付けます
'----既にあるシート名かチェックします
'---------変数を初期値にセットします
res = False
For Each MoSh In Worksheets
    If MoSh.Name = MoShN Then

'---------既に保存したシートがある場合は再保存日（今日）の日付を付けて保存します
        res = True
        MsgBox "既に同月の集計表が存在します。" & vbCrLf & "仮保存しますので集計表を再チェックしてください。"
        ActiveSheet.Name = MoShN & "@" & Format(Date, "yyMMDD")
        Exit For
    End If
Next

'---------同名のシートが無い場合はその名前でシート保存します
    If res = False Then
        ActiveSheet.Name = MoShN
    End If

End Sub