If target.Column <= 26 then
' do something

--
Regards,
Tom Ogilvy

"susan" wrote in message
...
Hi Tom
Thanks for your answer

I may have mislead you. If the user selects for example row 4 col 2
then the spreadsheet would perform an expiration date check and
change/unchange a cell in row 4 col 20. I think the "If Not
Intersect(Target, Columns("P:P")) Is Nothing Then" is just waiting for
col P to change. I would like to make the spreadsheet invoke changes
when the user clicks on any column as checks are made across the data
in the row.
Is it possible to put something like columns("A:Z")

Thanks again
Susan



On Sun, 22 Jan 2006 17:09:11 -0500, "Tom Ogilvy"
wrote:

Based on your description, Change rather than SelectionChange would be
the
appropriate event to use.

If your code would then make changes to the worksheet, you should disable
events

Private Sub Worksheet_Change(ByVal Target As Range)
On Error goto ErrHandler
If Not Intersect(Target, Columns("h:H")) Is Nothing Then
If IsEmpty(Range("p" & Target.Row).Value) Then
Application.EnableEvents = False
' code to do updates

End if
End if
ErrHandler:
Application.EnableEvents = True
End Sub