برجاء المساعدة فى الكود التالى يوجد خطا و لا اعلم ماهو
و شكرا
Function SumNumOnly(rngS As Range, Optional strDelim As String = " ") As Double Dim xNums As Variant, lngNum As Long
xNums = Split(rngS, strDelim)
For lngNum = LBound(xNums) To UBound(xNums)
SumNumOnly = SumNumOnly + Val(xNums(lngNum))
Next lngNum
End Function