chr(10)


CustInfo.Notes = Worksheets("CustomerDatabase").Cells(RefCountx, 30) & _
chr(10) & Worksheets("CustomerDatabase").Cells(RefCountx, 31)

--
Regards,
Tom Ogilvy


"thomas" wrote in message
...
I have a database of people, that when you search for one, it finds the
person and displays the info. I wish to be able to add a "return" (next
line)
for each note in the note text box. How do I do this?


Ex.

CustInfo.Notes = Worksheets("CustomerDatabase").Cells(RefCountx, 30) &
NEXTLINE??? & Worksheets("CustomerDatabase").Cells(RefCountx, 31)

thanks Ahead of time,
Thomas