Copy Worksheet into Same Workbook

[boldcode]

Hello,

I would like to create some vba code to copy the Active Worksheet into the Same Workbook. I want the copied worksheet to take on the name of the Active Worksheet with the string "2nd R" attached to it.

This new copied worksheet should come at the end of all the worksheets in the workbook.

That's it!

Thanks,

BC

[TMS]

Record a macro while you carry out the actions manually for the basic code.


Regards

[tom1977]

hi try this

Sub aa()
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Replace(ActiveSheet.Name & "2nd R", "(2)", "")
End Sub

[boldcode]

tom1977,

Thanks for you help that worked as intended!