title: Private Sub Worksheet_SelectionChange(ByVal Target As Range) not working VBA
body: <p>I have written a code in <strong>Sheet5(Support)</strong>, Which is mentioned below.
  But I can't figure-out where i am doing wrong.
  **I am trying to do, If <strong>Sheet5.Range(&quot;K3,K4,L4,M3&quot;)</strong> change than, Sheet1 and **<strong>Sheet4</strong> <strong>Range(&quot;K7&quot;).Value = Sheet5.Range(&quot;L5&quot;).Value</strong>
  When I change values in <strong>Range(&quot;K3,K4,L4,M3&quot;)</strong>, Then The <strong>Sheet5.Range(&quot;L5&quot;).Value</strong> autometically changed to another value.
  For Example, Now <strong>Sheet5.Range(&quot;L5&quot;).Value</strong> is <strong>&quot;A&quot;</strong>, After modifications in any cell in <strong>Sheet5.Range(&quot;K3,K4,L4,M3&quot;)</strong>, The <strong>Sheet5.Range(&quot;L5&quot;).Value</strong> Become <strong>&quot;B&quot;</strong>. and now <strong>Sheet1</strong> and <strong>Sheet4 Range(&quot;K7&quot;).Value</strong> is equal to <strong>A</strong> instead of **<strong>B</strong>.
  I need the value <strong>B</strong> after modification in <strong>Range(&quot;K3,K4,L4,M3&quot;).</strong></p>
  <p>My VBA code is below: -</p>
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      On Error GoTo ExitSub
      
      Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual
      Application.EnableEvents = False
      
      Sheet1.Unprotect Password:=&quot;123&quot; 'CASH SALE
      Sheet4.Unprotect Password:=&quot;123&quot; 'CREDIT SALE
      Sheet5.Unprotect Password:=&quot;123&quot; 'SUPPORT
  
      If Application.Intersect(Target, Range(&quot;K3,K4,L4,M3&quot;)) Is Nothing Then GoTo ExitSub
  
      Sheet1.Range(&quot;K7&quot;).Value = Sheet5.Range(&quot;L5&quot;).Value
      Sheet4.Range(&quot;K7&quot;).Value = Sheet5.Range(&quot;L5&quot;).Value
  
      Sheet1.Protect Password:=&quot;123&quot;, AllowFiltering:=True
      Sheet4.Protect Password:=&quot;123&quot;, AllowFiltering:=True
      Sheet5.Protect Password:=&quot;123&quot;, AllowFiltering:=True
  
  ExitSub:
      Application.Calculation = xlCalculationAutomatic
      Application.ScreenUpdating = True
      Application.EnableEvents = True
  End Sub
  </code></pre>