How do I add a range to a Worksheet change event?

[Certified]

The following code adds a comment to any cell that has been been change. However, right now it applies to the entire worksheet. Is there a way I can limit the target to a specified range?

Private Sub Worksheet_Change(ByVal Target As Range)


    
    
    
    If Target.Comment Is Nothing Then
    
           Target.AddComment Now & "-" & Target.Value & " -" & Environ("username")
        
    Else
        Target.Comment.Text Now & "-" & Target.Value & " -" & Environ("username")
        
    End If




End Sub

 

[SteveO59L]

if target.address=$A$1 limits to cell A1

 

[Certified]

So how would the code change if I wanted to limit the range to (B14:027)?

Thanks

 

[SteveO59L]

if target,column>1 and target.column<16 and target.row>13 and target.row<28

 

[Joe4]

Use INTERSECT to see if the cell you just updated (the "Target" cell) falls in your range. One way to do that is to place this line at the beginning of the code:

If Intersect(Target, Range("B14:O27")) Is Nothing Then Exit Sub

This will exit the event procedure if your updated cell is not in the specified range. Otherwise, it will continue on and run the code below it.

 

[Certified]

Works perfectly! Thank you!