Function SumBracket(Target As Range) As Double 'UpdatebyExtendoffice20160901 Dim xCell As Range Dim xObjs As Object, xObj As Object Dim xSum As Double Set xObjs = CreateObject("VBScript.RegExp") xSum = 0 With xObjs .Global = True .Pattern = "\((\d+(\.\d+)?)\)" For Each xCell In Target If xCell.Value