range problem

[PeterS]

For iColCnt = 1 To 49
'reset to startingcell
Call UtilitiesQuickSelectStartCell("Numbers", "DrawsTableStart")
'loop through columns
Call RangeTableActiveCellToSpecificRow(iDrawsToUse, 1, 1, iColCnt)
On Error Resume Next
I am trying to loop through a series of columns. I select a range of
cells within each column, if the cells have numbers in them. I find
that when a column has no cells with numeric values the range of cells
from teh previous column is being used. Could someone tell me how to
prevent thios?

thianks

For iColCnt = 1 To 100
'select the cells with numbers
Set rngCellsWithData = Selection.SpecialCells(xlConstants,
xlNumbers)
iTest = rngCellsWithData.SpecialCells(xlConstants,
xlNumbers).Count
If (rngCellsWithData.SpecialCells(xlConstants, xlNumbers).Count >
0) Then
'process the cells
End If
Next

 

[Bob Phillips]

Try setting the range variable rngCellsWithData to Nothing after processing.
You can also test if for nothing to see if there is anything to process.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)