Excel VisualBasic Script

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