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