sub trythis()
for i=cells(rows.count,"d").end(xlup).row to 2 step-1
if ucase(cells(i,"d"))="SB" the rows(i-1).delete
next i
end sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Novice Lee" wrote in message
...
I guess I forgot to mention that it would check each cell in column D for a
"SB" throughout the entire sheet that sheet.

"Mike H" wrote:

hi,,

Giving an answer that you can develop into more meaaningful code is
difficult given that you would normally do something as simple as this
without resorting to code i.e. you would simply look at d5 and delete
manually if required. However, this does what you want


Sub Stance()
If Cells(5, 4).Value = "SB" Then
Rows(4).EntireRow.Delete
End If
End Sub

Mike

"Novice Lee" wrote:

What I am trying to do is, check if Row 5, Column D has "SB" in the
cell. If
there is a "SB" in the cell, delete the row above it. I have done a
search on
deleting row most of the posting were for deleting blank lines and the
such
so they weren't much help to me. I am still trying to learn this stuff
as
fast as I can.

Thanks