Duplicate Sheet with VBA code

[vidplaylist]

I have "given names for each sheet" in workbook. Each month end I have to create a copy of each sheet for doing editing. Can someone suggest a vba code so i can attach the code with Macro button.

Thank you,

 

[bensonsearch]

so you just want to make a copy of the active sheet?

activesheet.copy
'if this part doesnt work do
'range("A1:ending cell").copy

Worksheets.Add.name = something
ThisWorkbook.Worksheets(something).Paste