View Single Post
  #3 (permalink)  
Old November 15th, 2005, 09:36 AM
tonyrosen tonyrosen is offline
Authorized User
 
Join Date: Nov 2005
Location: Houston, TX, .
Posts: 16
Thanks: 0
Thanked 1 Time in 1 Post
Send a message via Yahoo to tonyrosen
Default

Yea! I'm a superstar:

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

Reply With Quote
The Following User Says Thank You to tonyrosen For This Useful Post: