Hi Erin

You need a loop

Sub test1()
Dim Arr() As String
Dim N As Long
Dim Sh
N = 0
For Each Sh In ThisWorkbook.Sheets
If Sh.Visible = True Then
N = N + 1
ReDim Preserve Arr(1 To N)
Arr(N) = Sh.Name
End If
Next Sh
ThisWorkbook.Sheets(Arr).Select
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"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.

Thanks, works perfectly!