Why does this not work

Private Sub PrnSheet_Click(
Dim Sht As Workshee

For Each Sht In ActiveWorkbook.Worksheet
Sht.PrintOu
Next Sh
End Su

I keep getting the error

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