Compile Error! Can't find project or Library --- Help!

  • Thread starter Thread starter Suh Suk Ho
  • Start date Start date
S

Suh Suk Ho

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
 
Go to the VB IDE, menu Tools>References and see if there are any missing
links in the references. If there are, uncheck them, and scroll down to find
the equivalent library, which will have a different version number, and
check that.
 
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
 
Back
Top