Hi Senthil,

try:

Sub Test666()
On Error GoTo ende
start:
ActiveWorkbook.Worksheets.Add
Debug.Print ActiveWorkbook.Worksheets.Count
GoTo start
ende:
GoTo start
End Sub

I stopped it at Worksheet 928.

Saving took quite a while... ;-)

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"