Target.Address will return $A$4.

You could use:

If Target.Address = "$A$4" Then
or
If Target.Address(0,0) = "A4" Then
or (what I like)
if intersect(target,me.range("a4")) is nothing then exit sub

I find the last one easiest to modify (for multiple cells/ranges).


"dave!!" wrote:

I have a data validation list with a number of states in it. Each time I
select a new state I want 2 macros to run. The list is in cell A4 of Sheet
1. Here is the code I am using at the worksheet level, can someone tell me
what I'm doing wrong?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "A4" Then
pp_maj_macro
pp_minor_macro
End If
End Sub

Thanks so much,
Dave

--

Dave Peterson