Tabbladnaam als celverwijzing in macro

[ewaldmauritz]

Ik heb een bestand met zeer veel macro's daarin. In veel van die macro's worden de namen van personeelsleden gebruikt. Als er een nieuwe medewerker komt dan moet de naam van de medewerker veranderd worden en moet ik dat vervolgens ook doen in alle macro's waar die naam in staat. Is er een mogelijkheid om die gewijzigde naam in een cel te plaatsen en daar in de macro's naar laten verwijzen?
Onderstaand een van de macro's die ik gebruik waar de naam Adrian in staat. Hoe kan Adrian veranderd worden in een verwijzing naar een cel waar zijn naam in staat? De bedoeling is dus dat bij een wijziging (Adrian gaat weg en er komt een ander voor in de plaats) ik dan alleen nog één keer de naam in een cel hoef te veranderen en dan wijzigt dat ook in alle macro's.
Hopelijk is het duidelijk.

Sub ToonBlad_Adrian()
    
    Sheets("Adrian").Visible = True
    Sheets("Adrian").Select
    Range("A1").Select
    
End Sub

 

[Cobbe]

Als in cel A1 de naam van de medewerker staat kom je weg met deze code:

Sub ToonBlad_Medewerker()
   With Sheets(Range("A1").Value)
    .Visible = True
    .Activate
   End With
End Sub

 

[ewaldmauritz]

Bedankt. Het werkt.