for each cell in Range("A1:A10")
if cell.Numberformat = "#,##0.00 then
tot = tot + cell.Value
end if
Next

Range("B11").Value = tot

--
Regards,
Tom Ogilvy




"qwery" wrote in message
...
how can I add cells into another cell only if the format is right in the
cell
I want to add