VBA Ændre navnet på et ark

Hej,

jeg vil gerne have en makro der kan ændre det aktive arks navn til et nyt navn.

1. Det nye navn står i A1
2. Det er kun det aktive arks navn der skal ændres.
3. Det skal være muligt at ændre navn flere gange.
  F.eks. fra a til b og senere fra b til c.
4. Det er ikke hele regnearkets navn men kun "sheet"-navn der
  skal ændres.