VB Printing Error

[Lower-Case]

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

 

[RalphA]

Bump

 

[VoG]

Try

Sub PrintSome()
Dim s As Worksheet
For Each s In ThisWorkbook.Worksheets
    If s.Cells(1, 1).Value < 1 Then
        s.PrintOut
    End If
Next
End Sub

 

[RalphA]

Thank you, VoG II, for your post which, I feel sure, the OP will find to be "just the thing".

 

[Lower-Case]

Ralph A - you were right that was "Just The Thing"

VoG II - you are the man, thanks a bunch.