Hi,

Are you sure that cell is really empty. There could be space(s) in the cell.

did you step the code? if it stops and gives an error on line "DrAmtAcct = Abs(ActiveCell.Offset(0, 2))", possibly the reason cell has space(s) and not empty.
just change that line to "DrAmtAcct = Abs(Val(ActiveCell.Offset(0, 2)))" and try again.


--
Regards

Haldun Alay

To e-mail me, please remove AT and DOT from my e-mail address.



"Mike" , iletide sunu yazdi ...
The code below is evaluating a cell containing either a
blank or a dollar amount expressed without a decimal point
($10.00 = 1000).

If ActiveCell.Offset(0, 2) = "" Then
DrAmtAcct = ""
Else
If ActiveCell.Offset(0, 2) 0 Then
DrAmtAcct = Abs(ActiveCell.Offset(0, 2))
End If
End If

The problem I'm having is that when it gets to the cell
with a blank (no data), the routine ends.

Any help in figuring out why this is happening would be
greatly appreciated.