[RESOLVED] Workbook referencing inconsistent?
I've been testing some code on different computers, and on some computers referencing a Workbook through the Worbooks("") class sometimes causes an error while sometimes works perfectly... The below code usually works, but crashes on one of our machines on line Workbooks("NLEAPGIS10").Activate. Is there a more consistent way to reference a Workbook?
Thanks!
vb Code:
Dim sFileName As String
sFileName = Application.GetSaveAsFilename("EVENTS_", "Excel files (*.xls), *.xls")
If sFileName = "False" Then Exit Sub
Application.ScreenUpdating = False
Dim oBook As Workbook
Set oBook = Application.Workbooks.Add
Application.SheetsInNewWorkbook = 1
oBook.SaveAs sFileName
Workbooks("NLEAPGIS10").Activate 'Crash on some machines
Workbooks("NLEAPGIS10").Worksheets("EVENTS").Activate
Dim splicedName As String
splicedName = spliceFileNameEnd2(sFileName)
Worksheets("EVENTS").Copy Before:=Workbooks(splicedName).Sheets(1)
Application.DisplayAlerts = False
Workbooks(splicedName).Sheets("Sheet1").Delete
Application.DisplayAlerts = True
Workbooks(splicedName).Save
Workbooks(splicedName).Close (False)
Application.ScreenUpdating = True
Re: Workbook referencing inconsistent?
Actually figured it out...
Just requires a .xls to be added to
Workbooks("NLEAPGIS10").Activate
so it would look like Workbooks("NLEAPGIS10.xls").Activate