I have the following Script I use in Lotus SmartSuite 9.5.
I am switching all my Scripts to Excel 2000.
I am done except for this one below.
I am stuck in the mud on this one. I enter "date number enter", "then month
number enter"
Help Please

Thank you
************
Sub GetDate
Dim userday As Integer
Dim usermonth As Integer
Dim useryear As Integer
usermonth% = Cint(Inputbox$("Enter the Month's Number."))
userday% = Cint(Inputbox$("Enter Day Number."))
.contents = Cstr(usermonth)&"/"&Cstr(userday)&"/"&Cstr(2004)
.FormatName = "31-Dec"
.TextHorizontalAlign = $AlignCenter
End Sub
************