August 18th, 2015, 4:35 pm
I just want to find all hardcoded numeric cells and change their font colors, but my code below include both Texts and hardcoded numbers. Why the IsNumeric(rng) = true fails the exclude Text cells? ThxSub Hardcoded()Dim area As RangeDim rng As RangeSet area = Range("A1:M100")For Each rng In area If IsEmpty(rng) = False And IsNumeric(rng) = True Then rng.SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 3 End If Next rngEnd Sub
Last edited by
mit on August 17th, 2015, 10:00 pm, edited 1 time in total.