Hello,

This will do it:

Sub addSheet()
Sheets.Add after:=Worksheets(Worksheets.Count)
End Sub

ChasAA

"JamesArchibald" wrote:


Hi,

I am trying to insert a blank worksheet using the code:

Sheets.add

The problem is that the new worksheet inserts itself to the left of the
active sheet. I would like it to appear at the end of the sheets e.g.
Sheet 1, Sheet 2, Sheet 3, new sheet.

Any help would be appreciated.

Thanks


--
JamesArchibald
------------------------------------------------------------------------
JamesArchibald's Profile: http://www.excelforum.com/member.php...o&userid=33284
View this thread: http://www.excelforum.com/showthread...hreadid=565087