How to get address of adjacent cell?

Question

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         


        

Answer 1

You can use Offset

MsgBox "0 found at " & c.Offset(1,1).Address

The Offset property is of the form Offset(row, column). Examples:

Range("B6").Offset(0,0) //refers to cell B6
Range("B6").Offset(1,0) //move one row down (B7)
Range("B6").Offset(0,1) //move one column to the right (C6)
Range("B6").Offset(-1,0) //move one row up (B5)
Range("B6").Offset(0,-1) //move one column to the left (A6)

Answer 2

How about:

        MsgBox "0 found at " & Cells(c.Row + 1, c.Column + 1)