test a cells type
 

I want to step through a range clearing the contents of
cells with number values, but not formulas. The following
code doesn't work:

If ActiveCell.Offset(currow - 1, 0).Type <
xlCellTypeFormulas Then
ActiveCell.Offset(currow - 1, 0).ClearContents
End If

Does the constant "xlcelltypeformulas" only work with
the "specialCells" method? Is there another solution?

DM

test a cells type
 

If the range you want to process is selected you could use the following

Sub ClearCells()
Dim cell As Range
For Each cell In Selection.SpecialCells(xlCellTypeConstants)
cell.ClearContents
Next cell
End Sub

test a cells type
 

Dick,

Want to try this instead?

Dim cell As Range

For Each cell In Selection
If Not cell.HasFormula Then
cell.ClearContents
End If
Next cell


--

HTH

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

"Dick Minter" wrote in message
...
I want to step through a range clearing the contents of
cells with number values, but not formulas. The following
code doesn't work:

If ActiveCell.Offset(currow - 1, 0).Type <
xlCellTypeFormulas Then
ActiveCell.Offset(currow - 1, 0).ClearContents
End If

Does the constant "xlcelltypeformulas" only work with
the "specialCells" method? Is there another solution?

DM