GoBack naar laatste cel op vorig blad

[wiki]

Onderstaande code onthoudt de laatst geselecteerde cellen en met de Sub GoBack keer je er weer terug. Ik wil alleen niet alle laatste cellen, maar de laatste cel op een vorig blad omdat ik vanaf verschillende locaties met een hyperlink naar een matrix wil gaan en met de functie GoBack terug naar het vertrekpunt.
Onderstaande code staat in Thisworkbook
en ik heb de code verplaatst naar private sub sheetchange, maar dan wordt het gedrag vreemd.

wie kan helpen?

Dim LastCells As New Collection

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
LastCells.Add Sh.Name & Chr$(1) & Target.Address
If LastCells.Count > 101 Then LastCells.Remove 1
End Sub

Sub GoBack()
With LastCells
If .Count > 1 Then
LastCells.Remove .Count
Worksheets(Left$(.Item(.Count), InStr(.Item(.Count), _
Chr$(1)) - 1)).Select
Range(Mid(.Item(.Count), InStr(.Item(.Count), Chr$(1)) + 1)).Select
If .Count > 0 Then LastCells.Remove .Count
End If
End With
End Sub

gr wim

 

[wiki]

http://forums.techguy.org/business-applications/546347-excel-macro-previous-worksheet-easy.html

toch gevonden en gelukt

gr wim