Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)        If Not Intersect(Range("MyRange"), Target) Is Nothing Then           Sheets(Array("Sheet5", "Sheet3", "Sheet1")).Select       Else           Me.Select       End If End Sub