glad to help

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
try
With Worksheets("Data")
lr=.Cells(.Rows.Count, "A").End(xlUp)
.range(.cells(lr,2),.cells(lr,"iv")).ClearContents
end with


--
Don Guillett
SalesAid Software

"Robbyn" wrote in message
...
Hi all,

With Worksheets("Data")
Set Rng = .Cells(.Rows.Count, "A").End(xlUp)
With Rng
.EntireRow.ClearContents

How would I change the above code so that the data in column A is not
deleted but everything else on the row is deleted?

TIA,

Robbyn