Actieve werkblad hernoemen

[Gert Bouwmeeste]

Hoi,

Eigenlijk een suffe vraag
Ik zoek een macro om het actieve werkblad te hernoemen. Zonder dat ik de bestaande naam van het werkblad weet.

Ik heb nu dit

Sub WerkbladNaam_Wijzigen()
'
' WerkbladNaam_Wijzigen Macro
'

    Sheets("[COLOR="#FF0000"][B]Blad1[/B][/COLOR]").Name = "Nieuwe naam"

End Sub

Ik weet de naam dus niet van het werkblad waar ik op dat moment ben. Of ik moet die ergens kunnen uitlezen en dan gebruiken in de macro. Dat kan ook.

Iemand een idee?

 

[LucHeyndrickx]

zo:

ActiveSheet.Name = "Test"

Zal ook maar één keer lukken, vermits er géén twee werkbladen dezelfde naam kunnen hebben.
"Test" zal dus op een andere manier gevormd moeten worden

 

[edmoor]

Met controle:

Sub WerkbladNaam_Wijzigen()
    Newname = "Nieuwe naam"
    If Evaluate("ISREF('" & Newname & "'!A1)") Then
        MsgBox "Blad " & Newname & " al aanwezig"
        Exit Sub
    End If
    ActiveSheet.Name = Newname
End Sub

 

[mvdvlist]

Of:

Activesheet.Name = Inputbox("Hoe mag ik gaan heten?")

 

[Gert Bouwmeeste]

Jemig ... hoe simpel... En dan zoek ik me dan suf naar.

Dank!

 

[emields]

als je niet weet hoe je blad heet kan je ook altijd de excel naam gebruiken.