
Option Explicit
Sub select_()
Dim cell As Range, r As Range
For Each cell In Range("1:1")
If cell = 1 Then
If r Is Nothing Then
Set r = cell
Else
Set r = Union(r, cell)
End If
End If
Next
r.Select
End Sub
|
