Mega Code Archive

 

Categories / VisualBasic Script / 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