Hi
I have the following macro and keep getting compile error expected end sub. Any ideas?
I have the following macro and keep getting compile error expected end sub. Any ideas?
VBA Code:
Sheets("WORLDLINEMACHINES").Select
With ActiveSheet
.Unprotect Password:="s"
Sheets("Sheet2").Select
With ActiveSheet
.Unprotect Password:="s"
Sheets("WORLDLINEMACHINES").Select
Range("A11:M57").Select
ActiveWindow.SmallScroll Down:=-45
Selection.PrintOut Copies:=2, Collate:=True
Sheets("Sheet2").Select
Selection.PrintOut Copies:=2, Collate:=True
Sheets("Sheet2").Select
With ActiveSheet
.Protect Password:="s"
Sheets("WORLDLINEMACHINES").Select
With ActiveSheet
.Protect Password:="s"
ActiveWorkbook.Save
End Sub