Sub addsheet()
'Worksheets.Add after:=Sheets(Worksheets.Count) 'last
Worksheets.Add befo=Sheet1 'first
End Sub

--
Don Guillett
SalesAid Software

"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.