iterate columns to select certain cells
Hei Dale
Range("A2:A" &
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell) .Row).Select
Range("B2:B" &
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell) .Row).Select
Range("c2:c" &
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell) .Row).Select
regards Yngve
|