Thanks Chris,

I am receiving an error on this.
Run Time Error 448:
Named Argument Not Found

It errors out on the Set R line.

Z = 5
Do While Range("DCI!A" & Z).Value = Date
If Range("DCI!J" & Z).Value = 0 Then
Set R = Worksheets("HTC").Columns(2).Find(Left(Range("DCI! D" & Z).Value, 3),
XlLookAt:=xlWhole)
Range("DCI!J" & Z).Value = R.Value
End If
Z = Z + 1
Loop



"chris: Put 'Set' in front of 'x'"
wrote in message ...
Dim x As Range
Set x = Worksheets("Sheet2").Columns(2).Find...