Sub Worksheet_Change(ByVal Target As Range)
Dim WatchRange As Range
Dim IntersectRange As Range
Set WatchRange = Range("A1:A10")
Set IntersectRange = Intersect(Target, WatchRange)
If IntersectRange Is Nothing Then
'Do Nothing Spectacular
Else
Call MyMacro
End If
End Sub
Actually, PHV gave you the answer. You said you tried his solution but couldn't get it to work. Then you came back and said you found the solution - which you had already been ... sigh OK you ARE a superstar, well done !!
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.