Cells("PinY") not working correctly when number is a negative value

Hi There

I have written a Viso macro that pastes items from one page to another and orders them on the page. To move the item I am using the command myItem.Cells("PinY").FormulaU = dY

After an item is pasted dY is decreased by 3 (i.e. dY = dY -3)

This works fine until the value of Y becomes negative. When it gets to -3 for some reason it moves it to -14.1929

I have stepped through the code and have checked that the value of dY is correct.

Any ideas?

Regards

Alasdair