تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة كود لتلوين الخلايا التي بها معادلات وكود للتراجع عن التلوين
تم ارفاق كود الحل من الفاضل _ ا / أبوعبد الله
كود تلوين
Sub ColorFormulas()
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End Sub
كود تراجع عن التلوين
Sub UnColorFormulas()
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
مرفق الملف
color_and_uncolor_formula_cells.rar
و لا تنسونا من صالح الدعاء
تحياتى