Search thru range of cells and count cells containing only positive numbers

[ThomasOES]

Hello

I have a column of data and I would like to count the number of cells containing only positive numbers. Also some cells have parentheses, brackets, less than symbols. I would like to exclude all these and only count cells with a positive number. Below is a typical column I would encounter. Its data from an aluminum analysis. I need to get a count of the amount of positive numbers. No cells with any characters other than positive numbers. For example this column should yield a count of 7. VBA code please.
Thanks for any help.
Tom

[TABLE="width: 64"]
<colgroup><col width="64" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64, bgcolor: transparent"]Al[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"](0.007)[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"](0.001)[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0.0006[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0.0009[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0.0014[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0.002[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0.004[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0.02[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent, align: right"]0.065[/TD]
[/TR]
</tbody>[/TABLE]

 

[njimack]

worksheetfunction.CountIf(selection,">0")

 

[ThomasOES]

Thanks njimack.
Works nice

Tom