Combined two codes in one

[Jeffreyxx01]

Hello everyone,

I would like to create a macro that copy my "worker" tab and pop a message box that will change the name of the new tab for example: "worker" >> "XXX"

Also I want the macro to clear the contents of the cells I would allocate for my needs for example:

A1 A2 A3 >>> Those are just example,

Can someone help?

Thanks

[/COLOR]Private Sub ResetForm_Click()
'Deletes all user fields


Dim ws As Worksheet
With Worksheets("Worker")
  .Range("D4:F4").ClearContents
  .Range("D7:F10").ClearContents
  .Range("D22:F25").ClearContents
  .Range("D30:F31").ClearContents
  .Range("D35:F35").ClearContents
  .Range("D38:F38").ClearContents
  .Range("D43:F44").ClearContents
End With


End Sub


Sub AddSheets()
Dim NewName As String
Another:
OneMore = False
NewName = InputBox("New Name?")
Sheets.Add
ActiveSheet.Name = NewName
If MsgBox("Do you want to Add another Sheet?", vbYesNo) = 6 Then GoTo Another
End Sub


[COLOR=#333333]
[/COLOR]

 

[Jeffreyxx01]

Thank you it works very well, makes my work quicker

 

[mumps]

Glad it worked out.