Thanks,
It works but I have to run it more than once to get all rows removed.
Any suggestions

"Patrick Molloy" wrote:

copy this code to a standard module:=

Sub demo()
dim cell as range
for each cell in Range("B:B").Cells
if cell.value = "No" AND cell.Offset(,1)="" then
Rows(cell.Row).Delete
end if
next
End Sub

OPen the development environment, ALT+F11
Add a module - from the INSERT menu select MODULE



"Bobbo" wrote in message
...
Need help with a simple excel macro
What I need it to do is :
if a cell in column B=has the work "No" in it and the cell in column C
that
is next to it is blank or empty the row needs to be deleted

Thanks
Bob