Runtime Error - Subscript out of range despite On Error statement
In the VBE under options in the tools menu, General Tab, do you have Break
on Unhandled errors checked?
If not, that's your huckleberry.
--
Regards,
Tom Ogilvy
"DoctorG" wrote:
I based the following code on Bob Philips' code from June 30,2006 but I get a
"Subscript out of range" error at "Set lwOpenWorkbook = Workbooks(lcFile)"
only when the lcFile is not open. Which is what the On Error statement should
cover, right? What might be wrong and cause a runtime error despite having
the On Error statement in place???
Public Sub test()
Dim lwOpenWorkbook As Workbook
lcFolder = "G:\Tables"
lcFile = "Projects.xls"
lcCurrWorkbook = ThisWorkbook.Name
On Error Resume Next
Set lwOpenWorkbook = Workbooks(lcFile)
On Error GoTo 0
If Not lwOpenWorkbook Is Nothing Then
MsgBox "Workbook is already open"
Else
Set lwOpenWorkbook = Workbooks.Open(lcFolder & "\" & lcFile)
End If
Workbooks(lcCurrWorkbook).Activate
End Sub
|