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