Stop my macro going to Print Preview PLEASE!

[oliviar]

Hi Guys,
My macro, it works SO WELL. Except that I cannibalised parts from all over, and I can't stop it going to Print Preview. I just want it to remain on the view it was on. Because right now, its running sheet 1, going to print preview, I have to close that, then sheet 2, print preview, close that, sheet 3... etc etc.

Please help:

Private Sub Workbook_Open()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
Sheets(wsheet.Name).Select
Range("e3").Value = Sheets(1).Range("e3").Value + 1
ActiveWorkbook.Save
    Dim r As Range
    Set r = Worksheets("Sheet1").Range("e3")
    With ActiveSheet.PageSetup
        .LeftHeader = r
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    Next wsheet
    
End Sub

 

[Norie]

Just remove the PrintPreview line from within the loop.

If you do actually want to preview you could add it, or similar after the loop.

ThisWorkbook.Worksheets(Array("Sheet2", "Sheet3")).PrintPreview

 

[oliviar]

No that doesn't work. It gives me an error saying 'next without for' or something like that:

This is what I end up with after I delete that line:

Private Sub Workbook_Open()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
Sheets(wsheet.Name).Select
Range("e3").Value = Sheets(1).Range("e3").Value + 1
ActiveWorkbook.Save
    Dim r As Range
    Set r = Worksheets("Sheet1").Range("e3")
    With ActiveSheet.PageSetup
        .LeftHeader = r
    Next wsheet
    
End Sub

 

[Ruddles]

You removed the 'End With' statement. Why?