Sheet Printing order

[Darin Kramer]

Howdie,

I have a macro that loops through all the sheets and prints them -
however it prints them in the order they were created, not in the order
that they are displayed on the screen. How can I get Excel to print them
in the order that they are visible...?

Thanks and Regards

Darin

Sub PrintVisibleSheets_2()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
If ws.Name <> "data" Then
ws.PrintOut Copies:=1, Collate:=True
End If
End If

Next


End Sub

 

[Guest]

I couldn't reproduce it. It looped in the tab order for me.