Excel ： 曜日を表示する

'日付から曜日を取得する
Private Function GetWeekDay(tdate As Date) As String
    Select Case Weekday(tdate)
        Case 1
            GetWeekDay = "日"
        Case 2
            GetWeekDay = "月"
        Case 3
            GetWeekDay = "火"
        Case 4
            GetWeekDay = "水"
        Case 5
            GetWeekDay = "木"
        Case 6
            GetWeekDay = "金"
        Case 7
            GetWeekDay = "土"
    End Select
End Function

'日付を表示する
Private Sub DateDisp()
    Dim lastday As Long
    Dim i As Long
    Dim s1 As String
    Dim tdate As Date
    
    '末日を取得
    lastday = MonLastDay(Range("C2"), Range("C3"))
    '1日の日付
    tdate = Format(Range("C2") & "/" & Range("C3") & "/1", "yyyy/mm/dd")
    '日付を表示
    For i = 1 To lastday
        Cells(6 + i, 3) = i
        '曜日の取得
        s1 = GetWeekDay(tdate + i - 1)
        '曜日を表示
        Cells(6 + i, 4) = s1
    Next
End Sub

'作成開始ボタン
Private Sub CommandButton1_Click()
    If Range("C2") = "" Then
        MsgBox "作成する年を入力してください。"
        Exit Sub
    End If
    
    If Range("C3") = "" Then
        MsgBox "作成する月を入力してください。"
        Exit Sub
    End If
    
    '日付表示エリアをクリア
    Range("C7:D37").ClearContents
    '日付の表示
    Call DateDisp
End Sub