I dont know if the cells in those rows has to meet a criteria if so then:

dim cell as range

for each cell in range ("your range here")

if cell.value = "whatever" then

cell.entirerow.clearcontents

end if
next cell


if you just want to clear rows then

sub clear ()
range("your ranger here").clearcontents


end sub















"Peter" wrote in message
...
Thank you all very, very, very much!