VBA Sum function NOT calculating small values

[simora]

How can I get VBA to calculate values of less than $1 ?

I have code which works, until I get values of less than $1
How can I modify it so that it sums these values correctly.
I am trying to sum ALL values in a Visible Range after I've filtered the data.
eSum works unless the total value is less than $1



eSum = WorksheetFunction.Sum(myRange.SpecialCells(xlCellTypeVisible))
MsgBox eSum

[Dave]

I'm guessing...

Dim eSum as Double
HTH. Dave

[Paul_Hossler]

Post an example workbook

[simora]

Thanks Guys:

My Oversight. myRange was incorrectly defined.

As soon as I created a sheet with "Dummy Values " I saw it.

Again Thanks !