السادة الخبراء
اريد حذف المعادلات فى نطاق معين وهذا كود اريد تعديلة
Sub Formula()
Dim Cl As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Cl In Range("AZ1:AZ300")
If Cl.Value = Formula Then
Cl.ClearContents
End If
Next Cl
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
يعطى خطاء فى هذا السطر If Cl.Value = Formula Then
جزاكم الله كل خيراً