Activates the first worksheet: Return to List

  Sub GotoFirstSheet()
  
Dim i as Integer
  
For i = 1 To Sheets.Count
  
    If Sheets(i).Visible And TypeName(Sheets(i)) <> "Module" Then
  
        Sheets(i).Select
  
        Exit Sub
  
    End If
  
Next i
  
End Sub

See also:
Activate Worksheet by Name
Activates Last Worksheet
Adding a Worksheet
Copying one worksheet to another
Counting and Selecting Worksheets
Deletes Active Worksheet (no save)
Moving worksheet to particular location (i.e., order)
Naming the active worksheet