Hi Howard,

Am Fri, 13 Feb 2015 14:32:08 -0800 (PST) schrieb L. Howard:

It just occurred to me that one could use cell references to write the BB CC etc. to the UDF as a variable.

then you have to enlarge the declaration.

But here a more reliable UDF for a string with 3 times 2 characters.
If you write the first substring in A1 and the second in A2 then call
the UDF with:
=mysum(E1:F7;A1;A2)

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

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



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