Using code to adjust scrolling area on sheet

[ABabeNChrist]

I use the following code below that limits the scrolling on a worksheet. This helps protect restricted areas of the sheet from being accidently deleted. But when I pre set the sheet scrolling area to fit the desired area, and If I were to insert an additional row there is that possibility of some rows with text can go beyond scrolling area. So if any changes had to be made the user would be unable. Is there a way that the sheet scrolling area can adjust with changes made from above scroll area.

Code: Select all

Private Sub Worksheet_Activate()

	Sheet1.ScrollArea = "A1:L20"

	'To set back to normal use:

	‘Sheet1.ScrollArea = ""

End Sub

[HansV]

See Scrollable Workarea.

[Don Wells]

I would try setting A1:L20 to a named range -- lets say "Scroll_Area". Then:
Change the line
Sheet1.ScrollArea = "A1:L20"

To
Sheet1.ScrollArea = Scroll_Area

[HansV]

Don't you mean

Sheet1.ScrollArea = "Scroll_Area"

[Don Wells]

Don't you mean

Sheet1.ScrollArea = "Scroll_Area"

I do indeed; nice catch.

[ABabeNChrist]

Thank you HansV and Don
just what I was looking for