Kopiere, addere celle og navngiv faneblad....

Hej

Jeg har ledt efter en makro, der kopiere forrige fane, lægger +1 oven i celle A1 og derefter navngiver fanebladet efter det nye værdi i A1.
Har fundet denne makro - men den virker nu ikke.....
Er der en, der kan være behjælpelig med at tilrette denne?

Mvh Jan



Sub copyrenameworksheet()

Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy after:=Worksheets(Sheets.Count)
Range("A1").Value = Range("A1").Value + 1
If wh.Range("A1").Value <> "" Then
ActiveSheet.Name = wh.Range("A1").Value
End If
wh.Active

End Sub