title: Merging multiple Worksheet_SelectionChange
body: <p>I have got no problem in running one Private Sub Worksheet_SelectionChange , but when i add multiple Worksheet_SelectionChange events it is not running. Later, i came to know that it is not possible running different worksheet selection change events in the same sheet.</p>
  
  <p>I am having four different Private Sub Worksheet_SelectionChange events, trying to merge them with the help of various sites but none worked to me, as per my understanding.
  Could i get some help,
  1.</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cells1 As Range
  Set cells1 = ActiveSheet.Range("B1:B27")
  If Not (Intersect(Target, cells1) Is Nothing) Then
     ActiveSheet.Range("B30").Value = Target.Value
  End If
  End Sub
  </code></pre>
  
  <p>2.</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cells2 As Range
  Set cells2 = ActiveSheet.Range("C1:C27")
  If Not (Intersect(Target, cells2) Is Nothing) Then
     ActiveSheet.Range("C30").Value = Target.Value
  End If
  End Sub
  </code></pre>
  
  <p>3.</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cells3 As Range
  Set cells3 = ActiveSheet.Range("S1:S27")
  If Not (Intersect(Target, cells3) Is Nothing) Then
     ActiveSheet.Range("S30").Value = Target.Value
  End If
  End Sub
  </code></pre>
  
  <p>4.</p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cells4 As Range
  Set cells4 = ActiveSheet.Range("T1:T27")
  If Not (Intersect(Target, cells4) Is Nothing) Then
     ActiveSheet.Range("T30").Value = Target.Value
  End If
  End Sub
  </code></pre>
  
  <p>I appreciate your help.
  Thank you.</p>