Why do I keep getting compile error

[ghrek]

Hi

I have the following macro and keep getting compile error expected end sub. Any ideas?

    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

 

[jasonb75]

You're missing 'End With' in 4 places.
Cleaning it up a bit, see if this works.

Sub test()
    With Sheets("WORLDLINEMACHINES")
        .Unprotect Password:="s"
        .Range("A11:M57").PrintOut Copies:=2, Collate:=True
        .Protect Password:="s"
    End With
        With Sheets("WORLDLINEMACHINES")
        .Unprotect Password:="s"
        .PrintOut Copies:=2, Collate:=True
        .Protect Password:="s"
    End With

    ActiveWorkbook.Save
End Sub