Got a problem:
When I open more than 1 spreadsheet I get the "Runtime error '9':Subscript out of range" error message. It does not happen opening just one??
My macro(s) are as follows:
In This Workbook:
-----
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "&10&F"
.CenterFooter = ""
.RightFooter = "&10Psafety© January 2001"
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
------
In Module1
Sub Autpen()
Application.DefaultFilePath = CurDir()
With Application
.DisplayCommentIndicator = xlCommentIndicatorOnly
.Calculation = xlCalculationAutomatic
.Iteration = True
.MaxIterations = 500
.MaxChange = 0.0001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Sheets("Average Liq").Select
Range("A1").Select
End Sub
------
I've tried isolating individual lines, it appears the sheet selection is the culprit, but the recorder provides the same syntax.
(Each spreadsheet has the same macros, of course sheet name is unique.)
Ideas???
Don
When I open more than 1 spreadsheet I get the "Runtime error '9':Subscript out of range" error message. It does not happen opening just one??
My macro(s) are as follows:
In This Workbook:
-----
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "&10&F"
.CenterFooter = ""
.RightFooter = "&10Psafety© January 2001"
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
------
In Module1
Sub Autpen()
Application.DefaultFilePath = CurDir()
With Application
.DisplayCommentIndicator = xlCommentIndicatorOnly
.Calculation = xlCalculationAutomatic
.Iteration = True
.MaxIterations = 500
.MaxChange = 0.0001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Sheets("Average Liq").Select
Range("A1").Select
End Sub
------
I've tried isolating individual lines, it appears the sheet selection is the culprit, but the recorder provides the same syntax.
(Each spreadsheet has the same macros, of course sheet name is unique.)
Ideas???
Don