Trying to name a newly created worksheet with vba

[knacksc2]

so i have a macro that creates a new worksheet by copying a template and moving it to the end. I have tried lots of different things and cannot figure out why none work. its like the only thing the .name = will do is accept something in quotes. please tell me this isnt so. below is my massacred macro:

'Dim MySheetName As String'MySheetName = UserForm1.TextBox1.Value & " " & Range("Dated").String
    Sheets("Template").Select
    Sheets("Template").Copy After:=Sheets(Sheets.Count)
    Sheets("Template (2)").Select
'    Sheets("Template (2)").Name = MySheetName
Cells(3, 2).Value = UserForm1.TextBox1.Value
Cells(3, 3).Value = Range("Dated").Value


Cells(5, 4).Value = UserForm1.TextBox1.Value
Cells(6, 4).Value = UserForm1.TextBox2.Value
Cells(7, 4).Value = UserForm1.TextBox3.Value
Cells(8, 4).Value = UserForm1.TextBox4.Value


Cells(3, 2).Value = Cells(3, 2).Value & " " & Cells(3, 3).Value
Cells(3, 3).ClearContents
Range("Catch1").Value = Cells(3, 2).Value
UserForm1.Hide

 

[Smitty]

How about something like this:

<font face=Calibri>    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet<br>        <br>        Sheets("Template").Copy After:=Sheets(Sheets.Count)<br>        <SPAN style="color:#00007F">Set</SPAN> ws = ActiveSheet<br>        ws.Name = MySheetName<br>        </FONT>

HTH,