Here try this to start you off. This will choose multiple cells
throughout Column A


Sub MyMultiSelect()
Dim mycells As Object, myrange As Range, MyString As String
Set myrange = [A:A]
For Each mycells In myrange
If mycells.Value = [a1] Then
If MyString = Empty Then
MyString = mycells.Address
Else
MyString = MyString & ", " & mycells.Address
End If
End If
Next
Range(MyString).Select
End Sub


wrote:
You are correct. I didn't explain it as I should!

Regards,

S

John Fuller skrev:

I don't understand what you're asking for. My understanding of what
you've said is I select cell A1 (with a value of 1) and extend the
selection till it changes. This means I would end with just cell A1
seleced. If I had:

1
1
1
2
2

The I would end with A1:A3 selected. Please clarify so we can help.


wrote:
I have the following values in the A column:
1
2
2
2
3
3

I want to loop through the values by starting in cell A1 and extend the
selection as long as the values are the same. That means in the above
example that all the cells with the value 2 should be selected. How can
I do that?

I'm very grateful for fast answer!

Regards,

S