Hi Howard,

Am Sat, 14 Feb 2015 02:00:30 -0800 (PST) schrieb L. Howard:

If Len(Trim(myStr)) = Len(varData(n, 1)) - lenSub Then

VBA Trim does not work as expected. I changed it to
WorksheetFunction.Trim. That is necessary if your strings are anywhere
into the string:

Function mySum(myRng As Range, str1 As String, _
str2 As String) As Double
Dim varData As Variant
Dim n As Long
Dim myStr As String
Dim lenSub As Long

varData = myRng
lenSub = Len(str1) + Len(str2) + 2
For n = 1 To UBound(varData)
myStr = Replace(Replace(varData(n, 1), str1, ""), str2, "")
If Len(WorksheetFunction.Trim(myStr)) = _
Len(varData(n, 1)) - lenSub Then
mySum = mySum + varData(n, 2)
End If
Next
End Function


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional