Cell with value zero display OK

[errtu]

I want the macro to check a range, say b5:m19, for every cell that has a Zero as the value, I want the one next to it to display an OK text

 

[craig.penny]

I believe this is what you're after

Sub OK()
Dim oCell As Range
For Each oCell In ActiveSheet.Range("B5:M19").Cells
      If oCell.Value = 0 Then oCell.Offset(0, 1) = "OK"
Next oCell
End Sub

 

[Scott R]

to ignore blanks that evaluate to zero:

If oCell.Value = 0 And oCell.Value <> "" Then

 

[errtu]

very nice. thank you