Activate first sheet Excel

' Activate first sheet


Sub GotoFirstSheet()
  Dim i&
  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