Последний активный лист в VBA Conti

Public LstSht As Worksheet
Sub GoToLast()
    LstSht.Activate
End Sub
Comfortable Copperhead