JULY 13TH, 2009
By ADMIN
By ADMIN
Select all visible sheets in a workbook
sub select_visible_sheets ()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name <> "SOURCE DATA" And ws.Visible Then ws.Select (False)
Next
End Sub
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name <> "SOURCE DATA" And ws.Visible Then ws.Select (False)
Next
End Sub
