Hi Frank..

Thanks for your help here. I pasted your code into my VBE and a line showed up red preventing the code from working..

If Target.Value = 1 And Me.Cells(Target.Row, "C").Value = "credit
The

I'm in Excel 97...does this make any difference..

Thanks again..

JC