Automatically rename sheet to a date in that sheet

[NMB311]

I've tried to figure this out on my own and I keep getting the same error.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I'm trying to copy a template sheet I've made and rename it to a date that is displayed in the new sheet. I keep getting 'Runtime error "1004"'. I know its because sheet names can't contain slashes. And I'm assuming there's a way to change the date to a format that is supported (i.e. changing 6/3/2010 to 6-3-2010 and displaying that as the sheet name). I'm sure there is a way to do it I just can't figure it out. Here is my code:<o></o>
<o></o>
Sub NewSheet()

Sheets("Blank").Select
Sheets("Blank").Copy before:=Sheets("Blank")
Sheets("Blank (2)").Name = Range("A2").Value

End Sub<o></o>
<o></o>
Any help would be much appreciated <o></o>

 

[Magriza]

You're just about there. Change the name to equal:
Format(Range("A2").Value,"d-m-yyyy")

 

[NMB311]

Thank you so much! That works great!