Hi
try
Dim rng as range
Dim del_rng as range
'code to find the cell and assign this cell to rng
....
set del_rng = Range(rng.offset(-1,1),cells(1,rng.column+1))
del_rng.clearcontents


--
Regards
Frank Kabel
Frankfurt, Germany
"Jim K" schrieb im Newsbeitrag
...
I need to find a string in a worksheet "xxx_virtual" and then move up
one row and right one cell and delete everything from there to the top
of the worksheet. I can build the macro using the record function, but
the only problem is that the macro uses the cell name when I move to
that location and the data changes each day- so my macro has to be
rebuilt each day. How can I replace the cell range with a relative
cell address?

Thanks.

Jim