Stukje macro aanpassen (Select Case ActiveSheet.Name)

[Tweety1]

Ik gebruik het volgende stukje macro. Maar zodra de naam van de sheet verandert gebeurt er niks. Hoe kan ik dit aanpassen?

Sub Test
Select Case ActiveSheet.Name

Case "Sheet1"
Macro 1

Case "Sheet2"
Macro2

End Select
End Sub

 

[HSV]

Als ik het goed heb begrepen werkt de code niet meer na naamsverandering van het blad?
Gebruik dan.

Select Case ActiveSheet.CodeName

of:

Select Case ActiveSheet.index
case 1
macro1
case 2
macro2
end select

En: macronamen met een spatie werken sowieso niet (macro spatie 1).
Verander zonder spatie: macro1 of macro_1

 

[Tweety1]

Bedankt.