Jeffreyxx01
Board Regular
- Joined
- Oct 23, 2017
- Messages
- 156
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
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
Code:
[/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]
Last edited: