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