VBA code working on one file, giving error on another

[Aussiebear]

Does this work for you?

Sub ShowHideHP2()
' RemovePbreak Macro
With Sheets("QUOTE”).Rows("318:536")
 If Selection.EntireRow.Hidden = True Then
     'Clear Row Page
      Rows(318,405,471).PageBreak = xlPageBreakNone
     Elseif
     Selection.EntireRow.Hidden = False
     'Add Row Page Break
      Rows(318,405,471).PageBreak = xlPageBreakManual
End If
Sheets("Main calcs").Activate
End Sub