Sub GotoLastSheet() Dim i& For i = Sheets.Count To 1 Step -1 If Sheets(i).Visible And TypeName(Sheets(i)) <> "Module" Then Sheets(i).Select Exit Sub End If Next i End Sub