VBA Excel - funkcja użytkownika- jak pobrać nr wiersza i nr kolumny wskazanej w funkcji komórki

Proszę o pomoc!
Chcę napisać funkcję, która w zależności od wskazanej komórki wykonuje działania na różnych zakresach arkusza.
Mam problem jak pobrać nr wiersza i nr kolumny komórki wskazanej w funkcji.

Public Sub x(r As Range)
Dim c As Range

For Each c In r.Cells
    Debug.Print "Wiersz: ", c.Row, " Kolumna: ", c.Column
Next

End Sub

Dzięki za szybką pomoc, ale czy możesz dodać trochę wyjaśnień

Chętnie, ale nie wiem w czym... Pokazałem ci jak przekazać obszar do funkcji, jak wylistować komórki w danym obszarze oraz jak dla danej komórki wydobyć nr wiersza i kolumny...
Z czym więc masz problem?

To są te wyjaśnienia. Dzięki