It's not apparent to me why you'd get that error, though you might do better with:
Me.LB1a.ColumnCount = 1



PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

That did make a difference in the code. I also found out, however, that I needed to insert reference to MS objects.

Thanks for the tips and reply!

Mark