Best way to copy and rename worksheet 1

[UnsolvedCoding]

Is there a way to copy and rename the copied worksheet in the same line of code?

I know about doing this:
Sheets("Base").Copy Before:=Sheets("Base")
Sheets("Base (2)").Name = MySheetName

But is there a better way to do it?

 

[SkipVought]

Hi,
The "better" way is to use as few hard names as possible. The only hard names you need are the name of the sheet to be copied and the name of the sheet that is copied.

'
    Dim IsName As String, ToBeName as String
'...
    Sheets(IsName).Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = ToBeName

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]