Cells(row,column) error

Guys,

I have written the following function in VBA, but having trouble.

Please Login or Register  to view this content.

When used the function tells me an error in value "#VALUE". The problem line is where I try to assign the difference to the cell on the right (ie. Cells(ActiveCell.Row, ActiveCell.Column + 1) = ...)

Can you please help me??? Thanks