X座標、Y座標でループする方法。
┌──────────────────────────────────────┐
│Dim x As Long, y As Long                                                    │
│For y = 1 To Selection.Rows.Count                                           │
│    For x = 1 To Selection.Columns.Count                                    │
│        MsgBox "x=" & x & ",y=" & y & ",値=" & Selection.Cells(y, x).Value  │
│    Next x                                                                  │
│Next y                                                                      │
└──────────────────────────────────────┘
範囲でループする方法。
┌──────────────────────────────────────┐
│Dim r As Range                                                              │
│For Each r In Selection                                                     │
│    MsgBox "x=" & r.Column & ",y=" & r.Row & ",値=" & r.Value               │
│Next r                                                                      │
└──────────────────────────────────────┘