Patrick O'Dea
asked on
VBA - "Can't Find Project Or Library"
Hi,
I have some moderate knowledge of VBA - not great tho!
I am trying to fix something for a colleague.
At this moment, I cannot upload the sheet onto EE.
Someone send me a workbook.
When I try to compile to VBA I get "Can't find project or Library".
This line is the problem!
NM = MsgBox("Data has been clear", vbOKOnly, "New Month")
There appear to be no other reference in the VBA to "NM".
Sub NewMonth()
Application.ScreenUpdating = False
Sheet48.Select
Range("GoTo1").Select
Range(Selection, Selection.End(xlDown)).Sel ect
Selection.Copy
Range(Selection, Selection.End(xlToLeft)).S elect
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Sheet38.Select
Range("EvaDailyData").Sele ct
Selection.ClearContents
Range("A1").Select
Sheet29.Select
Application.ScreenUpdating = True
NM = MsgBox("Data has been clear", vbOKOnly, "New Month")
End Sub
I have some moderate knowledge of VBA - not great tho!
I am trying to fix something for a colleague.
At this moment, I cannot upload the sheet onto EE.
Someone send me a workbook.
When I try to compile to VBA I get "Can't find project or Library".
This line is the problem!
NM = MsgBox("Data has been clear", vbOKOnly, "New Month")
There appear to be no other reference in the VBA to "NM".
Sub NewMonth()
Application.ScreenUpdating
Sheet48.Select
Range("GoTo1").Select
Range(Selection, Selection.End(xlDown)).Sel
Selection.Copy
Range(Selection, Selection.End(xlToLeft)).S
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Sheet38.Select
Range("EvaDailyData").Sele
Selection.ClearContents
Range("A1").Select
Sheet29.Select
Application.ScreenUpdating
NM = MsgBox("Data has been clear", vbOKOnly, "New Month")
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Go to
Tools > References
and look for a ticked item starting with "Missing:...."
Tools > References
and look for a ticked item starting with "Missing:...."
Check for missing references.
ASKER