G'day everbody Help!
A B C D E
3A 4E 5A 6D Answer 18

On this row the procedure below works a treat,what I am trying for is to Sum
only the cells with "a" in mid(myrange1,2,1) Answer 8.Have tried a multitude
of different formulas but alas I admit defeat. Our dog will be gratefull for
any help as he cops my bad mood when it does not work. Regards John

Private Sub UserForm_Activate()
Dim myrange1 As Range
Dim a As Variant
Set myrange1 = Range(Selection.EntireRow.Cells(1, 4), Selection)
a = Evaluate("sumproduct(--left(0&" & myrange1.Address & ",2))")
msgbox a
end sub