الطريقة الاولى
اضغط F5
يظهر الشكل التالى
اختر SPECIAL
ليظهر الشكل التالى
اختر CONSTANts
وتاكد ان علامات الصح تحت FORMULAS موجودة بالكامل
ثم اضغط على OK
ثم DEL من الكيبورد
الطريقة الثانية
عن طريق هذا الكود
Sub ClearAllButFormulas()
Dim wks As Worksheet
For Each wks In Worksheets
'iلتفادى الخطأ فى حالة وجود معادلات فقط
On Error Resume Next
wks.Cells.SpecialCells _
(xlCellTypeConstants, 23).ClearContents
On Error GoTo 0
Next
Set wks = Nothing
End Sub