Rounding in vba

[choo]

I have a number value copy from another worksheet to currect worksheet using
below statement.

shtDemand.Cells(irow2, 2).Copy
bkCheckbook.ActiveSheet.Cells(irow + 5, 3).PasteSpecial Paste:=xlPasteValues

If value from shtDemand is 1008.5, I want it to be pasted as 1009.
If it's 230.3, then I want it as 230

Roundup/down with no decimal.

 

[JoeU2004]

If value from shtDemand is 1008.5, I want it to be pasted as 1009.
If it's 230.3, then I want it as 230

bkCheckbook.ActiveSheet.Cells(irow + 5, 3) = _
WorksheetFunction.Round(shtDemand.Cells(irow2, 2),0)

Note: I use WorksheetFunction.Round instead of the VBA Round function
because the latter does "banker's rounding". VBA Round(1008.5,0) is 1008,
not 1009.


----- original message -----