サンプルマクロは、年と月からその月末日を算出するユーザ定義関数です。

Function Sample(myYear As Integer, myMonth As Integer) As Integer

    Dim myDay As String

    myDay = myYear & "/" & myMonth & "/1"
    Sample = Day(DateAdd("d", -1, DateAdd("m", 1, myDay)))

End Function