Return Row Index and Column Index of a Cell in a Range

maybe so

Sub RowColIndex()
Dim i As Long, j As Long
With Range("C4:E6")
    For i = 1 To .Rows.Count
        For j = 1 To .Columns.Count
            .Cells(i, j).Select
            MsgBox "RowIndex " & i & "; ColumnIndex " & j
        Next j
    Next i
End With
End Sub