Lower-Case
New Member
- Joined
- May 19, 2008
- Messages
- 11
Why do I get a Run-Time Error '438' message?
I have used this code on different workbooks and it works fine, but on this particular workbook it Shows that message when I run my code.
My Code is the following:
Sub PrintSome()
For Each s In Sheets
If s.Cells(1, 1) < 1 Then
Sheets(s.Name).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
End Sub
Any suggestions
I have used this code on different workbooks and it works fine, but on this particular workbook it Shows that message when I run my code.
My Code is the following:
Sub PrintSome()
For Each s In Sheets
If s.Cells(1, 1) < 1 Then
Sheets(s.Name).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
End Sub
Any suggestions