Add/Delete Worksheets and Reset Numbering

[John]

I add sheet2, sheet3, and sheet4 to the current workbook.
Then I delete these new sheets. If I execute the following code:

----------------------
Dim a As Integer

For a = 1 To 10
Sheets.Add
Next a
----------------------

The sheets don't start at Sheet2, like I thought they would. Does
someone have the code handy to "wipe out" the remberance of sheets
that existed but are now deleted.

Thanks
John

 

[Vasant Nanavati]

I don't think there is a straightfoward way to do this without looping
through the sheets, determining what you want the new sheet to be named, and
then renaming it.