Brad,
A little better - I should have seen that myself.
Thank-you for highlighting my own oversight.
Cheers,
Cameron

"Brad Vontur" wrote in message
...
This should be a little better:

Dim strVal As String

strVal = TextBox3.Text
If TextBox4.Text < "" Then strVal = strVal & vbLf & TextBox4.Text
If TextBox5.Text < "" Then strVal = strVal & vbLf & TextBox5.Text
If TextBox6.Text < "" Then strVal = strVal & vbLf & TextBox6.Text

ActiveCell.Value = strVal

-Brad Vontur