Return to Snippet

Revision: 64415
at August 6, 2013 15:57 by ducalpha

Initial Code
Sub SelectDiscreteCells()
' Select discrete cells

Dim range
Set range = Selection
Dim i As Long
For i = 1 To 9
    ActiveCell.Offset(10, 0).Select
    Set range = Union(range, Selection)
Next i
End Sub

Initial URL

Initial Description
Select discrete cells in a sheet

Initial Title
Select discrete cells

Initial Tags

Initial Language