Named Range
Assume the name of the Range is MyRange
Dim cell as Range
for each cell in Range("MyRange")
if isnumeric(cell) then ' necessary in xl97
if cell.value = 10 then cell.value = 20
End if
Next cell
or
Dim cell as Range
for each cell in Range("MyRange").SpecialCells(xlConstants,xlNumber s)
if cell.value = 10 then cell.value = 20
Next cell
--
Regards,
Tom Ogilvy
"Mark M." wrote in message
...
I have a named range that is 10 rows by 10 columns.
If possible, I'd like to use the "For Each" construct to
go thru the range.
Could somebody give me some sample code?
I would think the code would look some thing like this:
Dim clCell as Cell
For Each clCell in NamedRange
if clCell.Value = 10 then clCell.value = 20
Next clCell
Thank you for your help,
MarkM
|