Jim,
You mean this ?

Application.EnableEvents = False
Target.Offset(0, 21-Target.Column).Value = 1
Application.EnableEvents = True
You should add a check that Target is in your range of interest.

NickHK

"Jim Zeeb" wrote in message
...
I have the following code in the Worksheet_Change event procedure.
I want to mark each row in the target range as changed if any cell in the
row has been changed (Column 20).
It works fine when the target is a single cell. If a block of cells is
pasted into the sheet, I get a 1004 error on trying to set the change flag
in
col 20.

Application.EnableEvents=False
For each cel in Target.cells
Set rngTgt = cel.EntireRow.Cells(1, 1)
rngTgt.offset(0,20).value = 1 'Gets 1004 error
next cel

InTHANKSadvance
Jim