Sub ComplexRange()
Dim complexRng As Range, rng As Range, rStr As String
Set rng = Columns(1).Find(what:="X*", lookat:=xlWhole)
If Not rng Is Nothing Then
rStr = rng.Address
Do
If complexRng Is Nothing Then
Set complexRng = rng
Else
Set complexRng = Union(complexRng, rng)
End If
Set rng = Columns(1).FindNext(rng)
Loop While rng.Address <> rStr
End If
complexRng.Select
End Sub