Is one of the sheets empty? You can determine which sheet it is by setting
a watch on Sht.Name.

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"TroyH" wrote in message
...
Why does this not work?

Private Sub PrnSheet_Click()
Dim Sht As Worksheet

For Each Sht In ActiveWorkbook.Worksheets
Sht.PrintOut
Next Sht
End Sub

I keep getting the error:

Run-time error '1004':
Method 'PrintOut' of object '_Worksheet' failed