Try this small UDF:

Function summ(R As Range) As Double
summ = 0
For Each rr In R
tx = rr.Text
If Left(tx, 1) = "$" Then
summ = summ + rr.Value
End If
Next
End Function


if A1 through A6 contained:

1
2
$3.00
4
$5.00
7

then
=summ(a1:a6) will return 8
--
Gary''s Student - gsnu200727


"Bonita" wrote:

If a column of data consist of currency, % and unformatted numbers, how do
you total only the data formated as currency?
--
Bonita