automatisch tekst in nieuw werkblad

[hnsmsslmn]

ik zou willen dat in elk tabblad dat aan het werkboek wordt toegevoegd, automatisch een tekst komt te staan in cel A1.
Met onderstaande code werkt dat wel, maar echter alleen voor het tabblad waarin de code is aangemaakt.
Omdat meerdere mensen gebruik maken van dit bestand en ook zelf een extra tabblad kunnen aanmaken, zou het zo moeten zijn dat de code voor alle tabbladen (dus het hele werkboek) werkt.
Hoe kan ik dat voor elkaar krijgen?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = "Opslaglocatie: " & ActiveSheet.Name
End Sub

 

[koster1984]

Hang dan deze code onder 'ThisWorkbook':

Private Sub Workbook_NewSheet(ByVal Sh As Object)
[A1] = "Opslaglocatie: " & Sh.Name
End Sub

 

[hnsmsslmn]

Bedankt voor je reactie Daniel. Ik heb de code nu gezet onder "algemeen" in plaats van onder "worksheet" (de enige 2 opties waaruit ik kan kiezen); ik neem aan dat je dat bedoeld?
Maar als ik daarna een nieuw tabblad toevoeg komt er niets in A1 te staan.

 

[koster1984]

Ik heb excel 2010, als ik ga naar Visual Basic staan links de sheets (blad1, -2, etc.) en helemaal onderin 'ThisWorkbook'. Waar zit jij in dan?

 

[hnsmsslmn]

het was even zoeken, maar heb nu ook dat scherm waar ik Thisworkbook kan vinden. Van daar uit heb ik jouw code toegevoegd en nu werkt het wel.
Hartstikke bedankt!

 

[koster1984]

Graag gedaan!