Dim lastrow as Long
Dim i as Long
Dim cell as Range
lastrow = cells(rows.count,1).End(xlup).row
for i = lastrow to 1 step -1
set cell = cells(i,1)
if cell.Font.Bold then
if not isempty(cell) then
cell.EntireRow.Delete
end if
end if
Next

--
Regards,
Tom Ogilvy

"Annette" wrote in message
...
How would I write to delete any lines that in column A which are not
bolded
and not include blank cells?

Thanks!

Annette