I dont think its a mcro code related thing. The macro works on some peoples. Here is code if you think it will help
Sub S1_()
ScreenUpdating = False
Sheets(Array("Format", "Area in region", "Area Ranked ")).Select
Sheets("Format").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Area ").Select
ActiveWindow.SelectedSheets.PrintOut From:=11, To:=13, Copies:=1, Collate _
:=True
Sheets("Print").Select
ScreenUpdating = True
End Sub
Basicaslly I send the macro to about 20 people. I have had complaints that some get this compile error. When I send it to a colleague who sits next to me it works, but others it doesnt work.