Worksheet Change for specific columns???

[snowboy001]

I was wondering if I could modify this code so that it only active for columns "E:K". Any ideas???

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Value1 As Single
Dim Value2 As Single

Value1 = Range("Y1").Value
Value2 = Range("X1").Value

If Value1 > Value2 Then
Target.ClearComments
Target.Interior.ColorIndex = 8
On Error Resume Next
Dim curComment As String
curComment = ""
curComment = Target.Comment.Text
If curComment <> "" Then curComment = curComment & Chr(10)
Target.AddComment
Target.Comment.Text Text:=curComment & _
ActiveWorkbook.BuiltinDocumentProperties("Author") & _
Chr(10) & " Rev. " & Format(Time, "hh:mm") & _
" " & Format(Date, "mm/dd/yyyy")
Sheets("Sheet2").Range("A1").FormulaR1C1 = "1"
End If
End Sub

 

[Peter_SSs]

Generally you can use a structure something like this.

<font face=Courier New><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)<br>    <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Intersect(Target, Columns("E:K")) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN><br>        <SPAN style="color:#007F00">'Other code here</SPAN><br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br></FONT>

 

[snowboy001]

Worked perfect! Thanks a million!!!