These will do the trick

Sub AddFirst()
Sheets.Add befo=Sheets(1)
End Sub


Sub AddLast()
Sheets.Add After:=Sheets(Sheets.Count)
End Sub

Need help with VBA? See David McRitchie's site on "getting started" with VBA
http://www.mvps.org/dmcritchie/excel/getstarted.htm
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"ronnomad" wrote in message
...
Is there a way to:

Add a new worksheet so that it is the first in a workbook?

Add a new worksheet so that it is the last in a workbook?

At times, after creating a workbook, I want to summarize the data from the
various worksheets and would prefer that the summary be the first sheet.
Insert does exactly that, and I do not see an option to put the new
worksheet
before or after the current sheet.

Thanks,

Ron R.