Mike,

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E26,E28")) Is Nothing Then
Sheets("Entry").Select
Application.Run "CopyFilterData5"
End If
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"documike" wrote in message
...
I am using the following code to run a macro if the data
in this cell (E26) is changed. I want another cell on
the same worksheet to do the same thing. (E28). I tried
adding another "worksheet change" but it didn't like it,
evidently you can only have one per sheet. How do I add
the other cell into the mix? Thanks

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E26")) Is Nothing Then
Sheets("Entry").Select
Application.Run "CopyFilterData5"
End If
End Sub