Norman, thanks that got me past that line;
However the next and final such formula statement is now causing the same
problem -- currently it is:

Activesheet.Range("C2:C" & Beglrow).Formula =
"=IF(AND(ISNUMBER(B2),LEN(H2)12),""Credit"",IF(AN D(ISNUMBER(B2),LEN(H2)<12),""Debit"",""))"

I can't recognize the syntax problem with the above -- can you assist?

TIA,
Jim


"Norman Jones" wrote:

Hi Jim,

Try replacing:

ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")"

with

ActiveSheet.range("B2:B" & BeglRow).Formula = _
"=IF(ISNUMBER(D2),D2,)"

---
Regards,
Norman



"Jim May" wrote in message
...
Sub PrepDepsAndWiths()
Sheets("ImportWorkTable").Select
ActiveSheet.UsedRange.Offset(1, 0).Copy
Sheets("DepositsAndWithdrawals").Range("D2")
Sheets("DepositsAndWithdrawals").Activate
Range("A1").Select
Beglrow = Cells(Rows.Count, "D").End(xlUp).Row ' = 589
ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")"
<<Bombing here (this line)

Can someone assist?