title: Worksheet Selection Change Not Working
body: <p>I have the following code which on selection change of a cell searches a separate sheet:</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.CountLarge &gt; 1 Then Exit Sub
  If Target.Value = vbNullString Then Exit Sub
  Dim Finder, ClickRange
  Set ClickRange = ThisWorkbook.Sheets("Sheet3").Range("A:A")
  If Intersect(Target, ClickRange) Is Nothing Then Exit Sub
  Set Finder = ThisWorkbook.Sheets("Sheet4").Range("A:A").Find(Target.Value, LookAt:=xlWhole)
  If Finder Is Nothing Then Exit Sub
  MsgBox (Finder.Row)
  End Sub
  </code></pre>
  
  <p>However the code isn't working even though in ThisWorkbook I have the following code enabling events</p>
  
  <pre><code>Private Sub Workbook_Open()
  Application.EnableEvents = True
  End Sub
  </code></pre>
  
  <p>My sheet names are as follows </p>
  
  <p><a href="https://i.stack.imgur.com/Eib2u.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Eib2u.png" alt="Worksheets"></a></p>
  
  <p>Any idea what I might be doing wrong?</p>