Argument not optional (Error 449)

[PANKAJUTEKAR]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call RoundUp
End Sub

Sub RoundUp()
Dim i As Range
For Each i In Columns("D").SpecialCells(xlCellTypeConstants)
i.Value = WorksheetFunction.RoundUp(i.Value)
Next i
End Sub

I am trying to round off the cell value, but this code give me an error -
Argument not optional (Error 449)

What is this, any idea?

=============


Fine fine , i got it.

I have not put the second argument.

Thank You.

 

[PANKAJUTEKAR]

Good.