I believe what you are asking is to look through a range, and then highlight any values within that range that don't contain a formula. So first find the range you want to highlight and then find the ranges within that range that contain a formula. For my example we'll say that your model is from cells A1 to A100
Public Sub hightlightNoFormulas()
Dim yourRange as Range, rangeNoFormula as Range
Set yourRange = Range("A1:A100")
Set rangeNoFormula = yourRange.SpecialCells xlCellTypeFormulas
Then loop through your range, excluding any values that have formulas
Dim rng as Range
For Each rng in yourRange
If Intersect(rng,rangeNoFormula) Is Nothing Then
rng.interior.Color = 65535
End If
Next rng
Exit Sub
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…