Code to Group Worksheets on Open

[GoKats78]

I'm sure this is simple...but I need a bit of code that will group all active sheets when the file is opened.

This will enable a user to print the file (from a third party application) and get all the data they need not just the active tab...

[Bob Phillips]

All active sheets? There is by definition, just the one.

[GoKats78]

OK..oops...I mean all "non-hidden" sheets...

[Bob Phillips]

Try this



Private Sub Workbook_Open()
Dim SheetNames As String
Dim sh As Worksheet

With ActiveWorkbook

For Each sh In .Worksheets

SheetNames = SheetNames & sh.Name & ","
Next sh

SheetNames = Left$(SheetNames, Len(SheetNames) - 1)

.Sheets(Split(SheetNames, ",")).Select
End With
End Sub

[GoKats78]

That's the ticket! Great! Thanks!