MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Identify multiple selected cells


Posted by Erica on August 14, 2000 11:19 PM

I want to identify multiple selected cells within a macro (alternative is to use a drop down list box with multiple select option set, but I can also not figure out how to identify which was selected, and this is not the first choice). I typically want to check a fixed range by running through the cells in a loop and check if each cell is selected or not ie. cells(r,c).selected = true. How can this be done? There is no property .selected.


Posted by Celia on August 15, 0100 1:10 AM


If the range you want to check is A1:D15 :-

1.If you want to identify the selected cells one at a time :-
Dim cell As Range
For Each cell In Range("A1:D15")
If Not Intersect(cell, Range("A1:D15")) Is Nothing Then
MsgBox cell.Address
End If
Next

2.If you want to identify all selected cells :-Dim sel As Range
Set sel = Intersect(Range("A1:D15"), Selection)
MsgBox sel.Address(False, False)

Celia