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

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

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

Go to the VB IDE, menu ToolsReferences 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.

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Suh Suk Ho" wrote in message
news:2a9NgB7TDHA.261@newsgroup...
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

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

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


.