insert sheet and naming sheet macro

[Dan88]

Hi all.
I am using a macro to insert a sheet to the end of workbook. Is there a code for me to name this sheet based on the value in column B that i have on another sheet named "details".
so if insert sheet and the values in "details" sheet's B1 is THANKYOU, my newly inserted sheet will be named THANKYOU.
B1 is not a static field, meaning i need the macro to read the latest info in column B before it names the new sheet.
Thanks in advance for advice.
Macro im using:
Sub Copy2End()
Dim ShName As String
Dim usrName As String, Authorized As Boolean
usrName = Environ("username")
If (usrName = "Sangdan") Or (usrName = "taylpe") Or (usrName = "sangdan") Or (usrName = "Taylpe") Then '
Authorized = True
Else
Authorized = False
End If
If Authorized Then
Dim ws As Worksheet, WB As Workbook
Set WB = ActiveWorkbook
Set ws = WB.Sheets("Template")
ws.Copy After:=Sheets(WB.Sheets.Count)
End If
End Sub

 

[Dan88]

wddnld, you are the ABSOLUTE greatest.
THANK YOU VERY MUCH, the code works perfectly to my needs.

Thanks for your time and effort!! Much appreciated. I hope i can learn some more from you in the near future!

 

[Dan88]

Okay, this may be pushing it. Is there a way that i can edit this vba to only insert the sheet if the corresponding column D says "draw" and for all other inputs it wont insert until the next "draw" is inputted into cell D whatever...?