summing double with empty string

[vhanacek]

In VBA I am summing values of cells and when i load cell which is empty, it assume that this cell is a string and i can't to sum it.
any help please?
Q = Q + ActiveSheet.Cells(Y, W).Value

ActiveSheet.Cells(Y, W).Value = "" ....it is VARIANT/STRING type
I initiatized Q as double, but it change itself to VARIANT/DOUBLE

 

[vhanacek]

If ActiveSheet.Cells(Y, W) = "" Then ActiveSheet.Cells(Y, W).ClearContents

thanks again