I've got a userform created with a textbox, an apply button and a cancel
button. If OK is clicked, i want the macro to duplicate a specific named
worksheet (say template) and rename the duplicate to the value in the textbox.

This doesn't seem to be terrible difficult, but I'm having problems. Any
advice?

OldSheet = "Sheet1"
Worksheets(OldSheet).Copy after:=Sheets(Sheets.Count)
Set Newsht = ActiveSheet
Newsht.Name = "Joel"

"mitch" wrote:

I've got a userform created with a textbox, an apply button and a cancel
button. If OK is clicked, i want the macro to duplicate a specific named
worksheet (say template) and rename the duplicate to the value in the textbox.

This doesn't seem to be terrible difficult, but I'm having problems. Any
advice?

Hi,

Private Sub OK_Click()
Sheets("Template").Copy After:=ActiveSheet
ActiveSheet.Name = Me.TextBox1
Unload Me
End Sub

where TextBox1 is the name of your textbox on the form. and the ok button is
named OK.

--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"mitch" wrote:

I've got a userform created with a textbox, an apply button and a cancel
button. If OK is clicked, i want the macro to duplicate a specific named
worksheet (say template) and rename the duplicate to the value in the textbox.

This doesn't seem to be terrible difficult, but I'm having problems. Any
advice?