Macro for printing coming up with a runtime error 1004.

[ghrek]

Hi

I have recorded this macro and keep getting runtime error 1004. Any ideas? The workbook is password protected.

    Sheets("SHIFT SHEET").Select
  [COLOR=rgb(84, 172, 210)] [/COLOR][COLOR=rgb(209, 72, 65)] ActiveCell.Offset(-22, -16).Range("A1:M67").Select[/COLOR]
    Selection.PrintOut Copies:=1, Collate:=True
    Sheets("CASH SHEET").Select
    ActiveWindow.SmallScroll Down:=-18
    ActiveCell.Offset(17, 3).Range("A1").Select
    ActiveWindow.SmallScroll Down:=-21
    ActiveCell.Offset(-17, -3).Range("A1:Q38").Select
    Selection.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Save
End Sub