Try this line instead....

..Cells(lRow, 5).Value = "CHQ" & Cstr(ChqCount)


--

Regards,
Nigel




"Wendy" wrote in message
...
Hi Nigel

It is not adding the chqcount to the value chq, and is only displaying chq
in the worksheet cell. I copied your code into mine and am not sure what
the problem is.

Wendy


"Nigel" wrote in message
...
Add another counter and increment this when the payment type is CHQ use
that number to allocate the payment type CHQ e.g.

Nigel




"Wendy" wrote in message
...