Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Using the Areas Collection to Return a Noncontiguous Range

Sub copy()     range("A:D").SpecialCells(xlCellTypeConstants, 1).copy range("I1") End Sub