Center on Scroll Area

[Rudi]

Hi,

Is it possible to center on a scroll area?
The attached workbook runs a macro on sheet 1 that centers the range Z30 to AO30 on the screen width, but I'd also like to lock the scroll area so one cannot scroll past Z30:AO100. The two seem to conflict and debug is they are both in action. Any ideas?

TX

Workbook attached...

[HansV]

You could use

Code: Select all

Private Sub Worksheet_Activate()
    ActiveSheet.ScrollArea = ""
    CenterOnCellND Range("Z30:AO30")
    ActiveSheet.ScrollArea = "$Z$30:$AQ$100"
End Sub

to avoid the conflict (which is caused by the argument .Scroll = True of Application.GoTo).

[Rudi]

HA!!!
So simple....So elegant....

TX