There is no "End With" to match up to the "With Documents.PageSetup".

(VB gets confused in situations like this by End If/End With/End Select/...)