Marc L on "extract number with decimal from a sentence or words"

Another VBA way :

Function ExtractQty(Rg As Range)
         P = InStr(Rg(1), "(")

         Do While P
             Q = Q + Val(Mid(Rg(1), P + 1))
             P = InStr(P + 1, Rg(1), "(")
         Loop

         ExtractQty = Q
End Function