The macro works fine up to the print preview. When I Close from the toolbar
I get the message "Code execution has been interrupted".
What can I add to the macro to prevent the interruption?

Here's the code from the macro

Sub PPreview()

ActiveWindow.FreezePanes = False
ActiveSheet.PageSetup.PrintArea = "PRT_G1"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
--
AusTexRich