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
Bookmarks