Gruss,
Danny
Option Explicit
Public Sub x()
Dim c As Range
For Each c In [a1:c10]
If c = 2 Then
c.SpecialCells(xlCellTypeConstants, 23).Select
End If
Next
End Sub
Sub x()
Dim c As Range
Dim rng, r As String
For Each c In [a1:c10]
If c = 2 Then
rng = c.AddressLocal(RowAbsolute:=False, ColumnAbsolute:=False)
If r = "" Then r = r & rng Else r = r & "," & rng
End If
Next
Range(r).Select
End Sub