How to copy or move sheets by using VBA code in Excel for Windows

I have used the following code:


Sub Create_New_Sheet()
'
'
Sheets("DEC (3)").Select
Sheets("DEC (3)").Copy Before:=Sheets(1)
Range("A1").Select
ActiveWorkbook.Save
End Sub

This is vulnerable to the name of the sheet.
The macro code I need, should duplicate the irrespective of the sheet name, i.e., from the active sheet.

Gurus Please help...