Like this, which automatically adds a new worksheet

'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------

On Error GoTo ws_exit:
Application.EnableEvents = False
If Target.Row = Me.Rows.Count Then
Worksheets.Add
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"mannan" wrote in
message ...

Thanks Bob for your reply.

To spread the data over multiple worksheets, How can we add multiple
worksheet programatically/dynamically? Also, to check if the worksheet
is filled, you mentioned to "use *Change Event* and check for
row65536". Can you explain briefly, how to use Change Event?

Have a Good Day.


--
mannan
------------------------------------------------------------------------
mannan's Profile:
http://www.excelforum.com/member.php...o&userid=33856
View this thread: http://www.excelforum.com/showthread...hreadid=536319