Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Activate last sheet

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