Sub RecalcReportTrial()


Sheets("FASB91RecalcReport").Select
Dim rng As Excel.Range
For Each rng In Worksheets("FASB91RecalcReport").Range("c5:c20")
If rng.Value = 350 Then
rng.ClearContents 'ActiveCell.Offset(0, 2).Select

End If

Next

This is what I am currently trying. The problem is that I can only
delete the rng, and not any other cells. I would also like to use a do
while statment.

Thanks for your help!