Activates the last worksheet: Return to List

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

See also:
Activate Worksheet by Name
Activates the First Worksheet
Adding a Worksheet
Copying one worksheet to another
Counting and Selecting Worksheets
Deletes Active Worksheet (no save)
Moving worksheet to particular location (i.e., order)
Naming the active worksheet