Detecting Multiple Non Cotiguous Cells (in a column)

[tsosiel]

Greetings.

I'm trying to write code that will detect if a user selected more than 1 cell in a column! I tried using the Selection action - this allows me to determine if more than 1 cell is selected. However, I don't know how to get which cells are selected from this? Can anyone help me? I'd like to extract any data that is one column to the right of these selected cells.

Thank you for any assistance.

- Lorentz

 

[Zathras]

Run and study this example:

Option Explicit
Sub TEST()
Dim r As Range
  For Each r In Selection
    MsgBox "Selected: " + r.Address _
      + "  Neighbor: " + r.Offset(0, 1).Address
  Next r
End Sub

 

[tsosiel]

Thanks. I will put that in.

- Lorentz!