Naam van een Blad / Sheet wijzigen middels VBA

[trainers]

Hoi,

Hoe wijzig je de naam van een Blad / Sheet?

Dit werkt:

Sub Macro1()
    Sheets("Blad1").Name = "AAA"
End Sub

Dit werkt vervolgens ook:

Sub Macro2()
    Sheets("AAA").Name = "BBB"
End Sub

Maar als ik bij de Eigenschappen van Blad1 kijk is de (Name) nog steeds: Blad1

Dus:

Sub Macro3()
    Sheets("Blad1").Name = "CCC"
End Sub

Werkt niet.

Waar zit mijn denkfout?

Groeten,

 

[HSV]

blad1.Name = "CCC"

 

[trainers]

Zo simpel!.

Dank je wel.

Groeten,

 

[HSV]

Graag gedaan.

 

[trainers]

:thumb: