Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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