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