Excel ： 日付を表示する

'日付を表示する
Private Sub DateDisp()
    Dim lastday As Long
    Dim i As Long
    
    '末日を取得
    lastday = MonLastDay(Range("C2"), Range("C3"))
    '日付を表示
    For i = 1 To lastday
        Cells(6 + i, 3) = i
    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
    
    '日付の表示
    Call DateDisp
End Sub