Allow copied worksheet to have duplicates with Date & (2),(3) etc Please Help!

[Cozza22]

Sub CopySheet()

Worksheets("Sheet3").Copy after:=Worksheets(3)

ActiveSheet.Name = Format(ActiveSheet.Range("D28").Value, ("DD-MM-YY"))

End Sub

 

[Cozza22]

Expert help please!

Apologies should have noted as you'll have guessed I'm new to VBA and have looked at other similar posts and ran the code but get various errors but can't seem to figure out what I need to allow the copied sheet renamed will cell D28 value which is a date to allow duplicated sheet.

E.g. 06-02-23 if ran again as changes made the new sheet will be 06-02-23 (2) then 06-02-23 (3).

The next step would be to add the text "Wk Comm" before D28 value.

Thank you.

 

[Cozza22]

I have figured this out now so am closing it.

 

[Fluff]

Good to hear you got the solution.
If you would like to post the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.