It doesn't if the cell is empty, so test that first.

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"WhytheQ" wrote in message
...
not too sure why the attached doesn't work.
It seems like the error generated by the vlookup isn't covered by "On
Error" - the error is 1004

'====================================
For Each cell In .Range("T9:T369").Cells
On Error GoTo found_It:
myRoom = WorksheetFunction.VLookup(cell.Value,
ThisWorkbook.Range("myRange"), 1, False)
.Range("T" & cell.Row & ":DZ" & cell.Row).ClearContents
found_It:
Next cell
'====================================

any one got any ideas?

Regards,
Jason Quirk