Advanced Search

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
range.Select
End Sub
Initial URL 









Initial Description





Select discrete cells in a sheet









Initial Title





Select discrete cells









Initial Tags





excel









Initial Language





VB.NET