]Ok now if I copy and Add it created a new workbook not the current on im in. What am I doing wrong?
Private Sub CommandButton1_Click() On Error GoTo Err_Command1_Click If Label2.Caption = "" Then MsgBox ("Please Name the Tabs") ElseIf Label2.Caption <> "" Then ActiveWorkbook.Sheets("Set-up Standard").Copy ActiveWorkbook.Sheets("Set-up Standard").Add().Name = Label2.Caption ActiveWorkbook.Sheets("Set-up Standard").Copy ActiveWorkbook.Sheets("Set-up Standard").Add().Name = Label4.Caption 'Worksheets.Add().Name = Label2.Caption 'Worksheets.Add().Name = Label4.Caption End If Exit_CommandButton1_Click: Exit Sub Err_Command1_Click: MsgBox Err.Description Resume Exit_CommandButton1_Click End Sub
Bookmarks