Macro for button to create new worksheet and rename with todays date

I posted a question about how to do this on the back of someone elses thread, clearly violating the rules (sorry, my bad!)

I ended up solving my own question by combining some of the info I found here, so here it is for others benefit. Change the name of the button to match the name of the one you create. Also, the "Master" name assumes that the workbook has a sheet called that from which all formatting is taken and copied. The master is assumed not to have data in it.

thanks all, excellent resource here.

Sub Button10_Click()
Worksheets("Master").Copy After:=Worksheets(Worksheets.Count)
On Error GoTo Handler
Sheets("master (2)").Name = Format(Date, "mm-dd-yy")
Exit Sub
Handler:
MsgBox "Can Not Rename Sheet", vbCritical, "Error"
End Sub

Please apply code tags to your code - forum rules, you know!