You can't.
You can simulate it by using the Worksheet_SelectionChange() event to
intercept selections outside the areas and return the selection to your
areas.
Assume the two areas are A1:J10 and A21:J30. Put this in the Worksheet
code module (right click on the worksheet tab and choose View Code):
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static rOldSelection As Range
Static rScrollArea1 As Range
Static rScrollArea2 As Range
If rScrollArea1 Is Nothing Then _
Set rScrollArea1 = Range("A1:J10")
If rScrollArea2 Is Nothing Then _
Set rScrollArea2 = Range("A21:J30")
If rOldSelection Is Nothing Then _
Set rOldSelection = Range("A1")
Application.EnableEvents = False
If Not Intersect(Target, rScrollArea1) Is Nothing Then
Intersect(Target, rScrollArea1).Select
ElseIf Not Intersect(Target, rScrollArea2) Is Nothing Then
Intersect(Target, rScrollArea2).Select
Else
rOldSelection.Select
End If
Set rOldSelection = Selection
Application.EnableEvents = True
End Sub
Private Sub In article <
[email protected]>,