try this

Sub deleteifbadgrade()
For Each c In Selection
If Asc(UCase(c)) 67 Then c.row.delete
Next
End Sub

--
Don Guillett
SalesAid Software

"mike b" wrote in message
...
Hello,

I need a macro that can look at columns F, G and H, if any of those
columns
have a letters D-, D, D+ or E then delete the row.

Thanks for your help
--
Mike B