werkbladen zoeken en terug zoeken

[kibus]

Hoi Wigi onderstaand is gelukt om te zoeken naar een tabblad maar om weer terug te gaan hoe haal ik die T er weer vanaf ?


Sub zoeken()
Dim sSheetName As String
sSheetName = "T" & ActiveSheet.Name
Worksheets(sSheetName).Select
End Sub

maar nu terug?



Sub terug()

Dim sSheetName As String
sSheetName = ActiveSheet.Name ???-T

Worksheets(sSheetName).Select
End Sub

 

[Wigi]

sSheetName = Right(ActiveSheet.Name, Len(sSheetName)-1)

 

[tilpi]

sSheetName = Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)

Mvg

Piet

 

[Wigi]

Idd, bedankt voor de correctie. Copy paste is toch soms zo gemakkelijk...