Thanks to all three of you for your replies. Now I have
some options!
HF
-----Original Message-----
Howard,

Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = CStr(CInt(Worksheets(Worksheets.Count -
1).Name) +
1)

HTH,
Bernie


"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


.