sub Shazi()

dim ws as worksheet
dim wb as workbook

set wb = activeworkbook

for each ws in wb.worksheets
Rows("51:65536").EntireRow.Hidden = True
next ws

end sub

========================
run once for the whole workbook.
hth
susan


On Jul 29, 8:10*am, Shazi wrote:
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