scrollable workarea

Hi,

Use names for this .

In my code I have named the ScrollArea Range 1:AI28 as "Meraldo".Change this to suit your needs.

After naming the range using the Name Box, Right Click the worksheet Tab , Choose View Code and paste the following:

Code:

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Activate()
    Me.ScrollArea = Range("Meraldo").Address
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)
    Me.ScrollArea = Range("Meraldo").Resize(Range("Meraldo").Rows.Count).Address
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

Now the Scroll Area will adjust automatically as you insert/Delete Rows.

Hope this helps.