' ows is your worksheet object ' vr is the row you're examining If ows.Cells(vr, 1).Value = 0 then ows.Rows(vr).ClearContents