I have the following vba code to find occurrences of \"0\" in a following column:
For Each c In Range(\"B:B\") If c.Value = \"0\" Then M
How about:
MsgBox "0 found at " & Cells(c.Row + 1, c.Column + 1)