Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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