On Nov 25, 8:35 pm, Basilisk96 wrote:
Ok now that works how to I put the message on the next line. (alt +
enter)
I have added the .wraptext but i want to start the note underneath the
link.

I'd say replace Chr(32) with vbLf, but that shows up as a funky square-
shaped character on my system... although it renders the newline
correctly when I do F2 on the cell...
How does that work for you?

Cheers,
-Basilisk96

This is what i got to work

txt = InputBox("Enter text to add to formula:")
ActiveCell.Formula = ActiveCell.Formula & " & " & Chr(34) &
Chr(32) & Chr(10) & txt & Chr(34)
ActiveCell.WrapText = True

Thanks again for the help