pretty crude but if a cell in the 50th row or beyond is selected you could
use a promt like:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 50 Then MsgBox "The Sheet is Full" & vbcrlf & " Please
start a New Sheet"
End Sub


"Shazi" wrote in message
...
Hi,

I want to make a procedure that allow to sheet1 for 50 rows of data
only.

or

How I can limit the worksheet only for 50 rows data entry, If I will
hide all the rows from 51 to bottom.

is it possible, that when user reach row number 50 then he get the
message "your data entry limit is finished, make new worksheet".

Regards.

Shahzad