I need a piece of VBA code that will select all visible sheets.

Just a slightly different technique:

Function SelectAllSheets()
'// Dana DeLouis
Dim sht As Variant

On Error Resume Next
For Each sht In Sheets
sht.Select Not sht.Visible
Next
'Return a count
SelectAllSheets = ActiveWindow.SelectedSheets.Count
End Function

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Erin" wrote in message
...
I need a piece of VBA code that will select all visible sheets. When I
record a macro, it does it via an array and specifying each sheet name.
But, in my case I don't know how many sheets there are.