Preimenovanje delovnih listov

[mkralj123]

Pozdrav vsem

Imam eno, morda trivialno vprašanje. Posamezne delovne liste bi rad poimenoval z vsebino posamezni celic, ki se nahaja na tem delovnem listu. Primer v A1 imam napisano Ime Priimek in sedaj želim da se z zagonom določenaga makra delovni list preimenuje v Ime Priimek
Makro bi rad uporabil za vse delovne liste v dokumentu, torej tudi ko se postavim na List2, List3, ... Upam da sem dovolj bil razumljiv Hvala lp m

[admin]

Če je vsebina zapisana v A1, potem je makro sledeč:

Koda: Izberi vse

Sub Preimenuj()
    ActiveSheet.Name = Range("a1")
End Sub