range problem
 

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

range problem
 

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)

wrote in message
...
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