It's limited by available memory.

I just added 1000 with no probs

Sub Test()
Dim x As Integer
For x = 1 To 1000
Worksheets.Add
Next x
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"e_mlm_m" wrote in message
...
How many sheets can i insert in excel 2003 ???
--
eml