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