Scroll Lock and Unlock using VBA

Hi,

I need VBA code to lock and unlock the scroll area.

Thanx in Advance.:cool:

Code:

---

Worksheet("NameOFSheet").ScrollArea = ""'To Unlock
Worksheet("NameOFSheet").ScrollArea = $A1:$M$20"'To Lock

---

https://www.youtube.com/watch?v=ySENWFIkL7c&lc=UgyqIYcMnsUQxO5CVyx4AaABAg

Thanx for this useful function.
Working!
:cool: