this is a copy of a previous post on summing a text string.
Example: 21+12+13.....
The string is of variable length with the possibility of 256 or more chars.
Try Jindon's
Function SumInCell(ByVal txt As String) As Double
SumInCell = Evaluate(Replace(Application.Trim(txt), ",", "+"))
End...