All,
I have a work sheet with data like this

Col A___________Col B___________Col C___________Col D___________Col E
9812___________ Joe____________________________________________125.00
*blank*__________
____________________________________________125.00
*blank*__________
____________________________________________125.00
Total __________ ____________________________________________
375.00

What I want to do is delete value in Col E if the value in Col A of
the same row IS NOT = Total


Thanks
Steve

Dim LastRow As Long
Dim i As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow

If .Cells(i, "A").Value <> "Total" Then .Cells(i,
"E").ClearContents
Next i
End With


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Steve" <(E-Mail Removed)> wrote in message
news:c3acddd3-d196-4055-a362-(E-Mail Removed)...
> All,
> I have a work sheet with data like this
>
> Col A___________Col B___________Col C___________Col D___________Col E
> 9812___________ Joe____________________________________________125.00
> *blank*__________
> ____________________________________________125.00
> *blank*__________
> ____________________________________________125.00
> Total __________ ____________________________________________
> 375.00
>
> What I want to do is delete value in Col E if the value in Col A of
> the same row IS NOT = Total
>
>
> Thanks
> Steve