Thank u Sandy,
I did a mistake, thanks a lot, the code also was in sheet module as well in
workbook module. now its working fine once again thank u very much. i have
one more doubt. how to add more scrolling lock for other sheets too????

"Sandy" wrote:

And macros are enabled?

"moiz" wrote in message
...
Yes i put in the "This workbook" module. its so strange.
thanks

"Sandy" wrote:

Hi Moiz

Did you put the code in the "This Workbook" module?
If you placed it in the Sheet1 module it will not work.

Setting the ScrollArea in properties will not save.

Sandy

"moiz" wrote in message
...
Thank u Sandy,
I copied the code and Even in properties of sheet1 scroll area i wrote
the
range to lock but to my surprise when i save and exit and restart Excel
the
code is there but the scrolling is not locked. where i am going wrong,
please
help.

"Sandy" wrote:

Hi Moiz

In the 'This Workbook' module :-

Sub Workbook_Open()

Sheets("YourSheetName").ScrollArea = "A1:AR31"

End Sub

Sandy


"moiz" wrote in message
...
Hi,
I am trying to lock the scroll, My range is "a1:ar31", When i save
and
close the work sheet and open again the scroll lock range
dissappears.
is
there any code???. please help. Thanks in advance.
moiz