I appreciate the help Don, however it did not do the trick.

"Don Guillett" wrote:

try this idea
Sub deleteblankformulas()
For Each c In Range("c10:c15")
If c.HasFormula And c = "" Then c.EntireRow.Delete
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Curtd" wrote in message
...
I realize there have been numerous discussions on deleting rows with a cell
blank, I can not locate one with what I need that works, I have a column
that
has some blank cells due to a formula result and need to delete these
rows,
any help would be appreciated. thanks