I think this is what you're after, but I did take the
liberty of removing the array...hope this helps:

Sub Demo1()
Dim i As Integer
Dim UserChoice As Variant
For x = 1 To 12
xMonth = Format(DateSerial(1, x, 1), "MMM")
xMsg = xMsg & x & ". " & xMonth & vbCr
Next x
UserChoice = InputBox(Prompt:="Select a month:" & vbCr
& xMsg, Default:=1)
If UserChoice = False Then
Range("A6") = ""
Else
Range("A6") = UserChoice
End If
End Sub

-----Original Message-----
Dear Colleagues;

I think I came across the same problem long time ago but
I do not remember
how I got away with it at that time.

In the code below. The compiler stops at --Format
(DateSerial(1, i, 1).,
"mmmm")

It seems that the compiler doesn't recognize "Format",
even though I
referenced "Visual Basic for Applications" library. And
when I browse the
objects with the Object Browser, I can see clearly that
Format is under VBA
library.

Please tell me what to do to solve this problem.


Sub Demo1()
Dim Ops(1 To 12) As String
Dim i As Integer
Dim UserChoice As Variant
' Create an array of month names
For i = 1 To 12
Ops(i) = Format(DateSerial(1, i, 1), "mmmm")
Next i
UserChoice = GetOption(Ops, 1, "Select a month")
If UserChoice = False Then
Range("A6") = ""
Else
Range("A6") = Ops(UserChoice)
End If
End Sub


.