You've defined price as being "Long". This is an integral
type, so it will round to an integer when you assign
ActiveCell.Value to it. Try

Dim price as Double

instead.


On 29 Sep, 12:58, oggy wrote:
Hi
I have have wrote the following code to get a value from a cell in one
spreadsheet and put it into another sheet.

The problem is the value is in money ie £25.68 but when the macro puts
the value in the other sheet the value is rounded up or dowm ie £26.00

The following code is a small element of a large macro, but show the
problem if processed.

Dim price As Long
price = ActiveCell.Value
Sheets("Sheet3").Select
Range("I21").Select
ActiveCell.Value = price
End Sub

Any ideas to resolve the problem would be gratfully recieved.

Thanks