One way:

Worksheets.Add(After:=Sheets(Origsheet)).Name = "Fred"

Where OrigSheet contains either an index number or a sheetname as a
string.

In article ,
"Chris Gorham" wrote:

Hi,

just trying to add a worksheet behind an existing one and
naming it.
trying this:

Sheets.Add Type:=Worksheet, count:=1, after:=Sheets
(Origsheet)

but I'd like to assign a name to it (in the same
statement...must be possible..!!)

Thks

Chris