Following macro is designed to open a file (unless it is already open) called "Easy Access Dwight" and then to run an existing macro from within that file named "FITBStockQuote". Error message says "The macro "EASY ACCESS DWIGHT.XLS!FITBStockQuote" cannot be found".
I know its there and I've proofed it all pretty carefully.
Can someone help?
Thanks, Ludovico
Sub ScorecardEasyAccessDwight()
'
' ScorecardEasyAccessDwight Macro
' Macro recorded 2/4/02
'
Dim n As String, myBk As Workbook
n = "Easy Access Dwight.xls" ' file name here
On Error GoTo 1
Set myBk = Workbooks
On Error GoTo 0
2: Application.Goto Workbooks.Sheets("Easy Access Buttons").Range("i1")
Application.Run "EASY ACCESS DWIGHT.XLS!FITBStockQuote"
Exit Sub
1: Workbooks.Open Filename:="L:CommScorecard Easy Access" & n
Application.Run "EASY ACCESS DWIGHT.XLS!FITBStockQuote"
GoTo 2
End Sub
I know its there and I've proofed it all pretty carefully.
Can someone help?
Thanks, Ludovico
Sub ScorecardEasyAccessDwight()
'
' ScorecardEasyAccessDwight Macro
' Macro recorded 2/4/02
'
Dim n As String, myBk As Workbook
n = "Easy Access Dwight.xls" ' file name here
On Error GoTo 1
Set myBk = Workbooks
On Error GoTo 0
2: Application.Goto Workbooks.Sheets("Easy Access Buttons").Range("i1")
Application.Run "EASY ACCESS DWIGHT.XLS!FITBStockQuote"
Exit Sub
1: Workbooks.Open Filename:="L:CommScorecard Easy Access" & n
Application.Run "EASY ACCESS DWIGHT.XLS!FITBStockQuote"
GoTo 2
End Sub