SheetName()

Hejsa,
Jeg har nedenstående program, som skriver navnet på arket, når jeg skriver "=SheetName() i en celle.

Function SheetName()
SheetName = ActiveSheet.Name
End Function

Mit problem er, at når jeg kopiere et ark (hvor formelen indgår), så beholder cellen det oprindelige navn - dvs. den opdatere ikke automatisk til navnet på det nye ark.

Hvordan kan det mon løses?

På forhånd tak
Henrik