VBA code voor laast actieve sheet gebruiken

[WillyAA]

als ik op blad1 ben en zelf naar blad2 ga, wil ik een knop creëren die mij automatisch naar mijn laatst actieve/gebruikte blad terug brengt, kan iemand mij helpen?

 

[HSV]

Dit in een normale module.

Option Explicit
Public vorigblad As String
Sub hsv()
 Application.Goto Sheets(vorigblad).Cells(1)
End Sub

en deze in Thisworkbook module...

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 vorigblad = Sh.Name
End Sub

De code 'hsv' hang je aan de knop.