View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
KL[_6_] KL[_6_] is offline
external usenet poster
 
Posts: 18
Default How to set multiple columns in "If Target.Column ="

Brad,

You can use the Intersect() function

Private Sub Worksheet_Change(ByVal Target As Range)
'if using the change event
If Not Intersect(Target, Range("G:M")) Is Nothing Then _
MsgBox MyCell.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'if using the selection change event
If Not Intersect(ActiveCell, Range("G:M")) Is Nothing Then _
MsgBox MyCell.Address
End Sub

Regards,
KL


"Brad K." wrote in message
...
I want to run the same code when one of several columns contain the active
cell. How do I do this without repeating the code.
When I used

If Target.Column = 7 Or 8 Or 9 Or 10 Or 11 Or 12 Or 13 Then

the code is executed when any cell in the sheet is selected not just in
the
above columns.
I tried using an array without luck either.
Also, I am not sure yet if all of the columns will be sequential or not.
Thanks in advance for any assistance.
Brad