Sum column that contains both numeric and text values

I am going back over code that I wrote while learning VBA. There is a lot of what I call "brute force" code. The code works. Just extremely verbose. I know there are neater and more efficient ways to accomplish the task.

Here is an example:

I want to sum a column of values. The column contains both text and numeric values. I used the following code to accomplish the task:

Please Login or Register  to view this content.

The result is that Range("B28") holds the sum of the numeric values B19:B25. Cells B20,22,24 are blank.
If every cell in the named ranges contains ND - B28 contains ND.


I have a strong feeling there is a much simpler way to accomplish the task.

As always - thanks to all for looking and helping.

I don't think this is the first time... but why are you marking your threads as Solved prior to being Solved... you will not have luck getting people to help if they think you solved it already.