Excel 2007/2010 – Select all visible Sheets in a WorkBook

SCENARIO

There is probably a one line answer to this, but how do i select all (visible) sheets?

If a record a macro it creates an array of the worksheet names, which is no good if the names change.

SOLUTION

Sub SelectVisible()
Dim ws As Worksheet
For Each ws In Sheets
    If ws.Visible Then ws.Select (False)
Next
End Sub

This macro select, recursively, all sheets available in a workbook, so it will select it if his status is Visible.