Thanks, again. Interesting how many ways there are to do
something.
HF
-----Original Message-----
Ups! Make that two lines instead. :)

Sub Demo()
Sheets(Sheets.Count).Activate
Worksheets.Add(, ActiveSheet).Name = ActiveSheet.Name
+ 1
End Sub

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Dana DeLouis" wrote in message
...
And just another idea that doesn't use variables.
(Assumes your sheet
names
are numeric).

Sub Demo()
Sheets(Sheets.Count).Activate
Worksheets.Add , ActiveSheet
ActiveSheet.Name = ActiveSheet.Previous.Name + 1
End Sub

HTH.
--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Howard" wrote in
message
...
Running Excel 2000
I have three worksheets: 2001, 2002 and 2003. I can
add a
new worksheet to the end of those worksheets by using
Worksheets.Add Worksheets(Worksheets.Count). Is there
a
way to automatically name it with the next year in the
series (2004) at the same time that I add it?

Thanks,
HF




.