Add quotes to textbox and move cursor between them

I believe he added it using the Active X controls (in Excel 2007) ... from the developers tab, design mode / Insert / text box (from the Active X section)

Thanks Leith... really appreciate it.
I actually added it to another button, which the user will click to add the quotes (otherwise, anytime a user clicks in the box, they'd get the quotation marks -- instead of only when they need them.

What I'm not able to do yet, though, is get the focus back to where the cursor is between the quotation marks.

This may sound vague, so I'm going to attach a sample sheet from the workbook. Please ignore the rudimentary coding... much is experimental.

If you do check it out, the code in question is under sheet4, Private Sub AddQuote_Click.
Thanks again for your expert guidance!

JP

I see my attachment didn't come through...trying again...

That's absolutely perfect... exactly what I was after. Thanks a million Leith!

Wait, one small problem...dang.
If the text in the text box is a single string, it works perfectly, but if the user has multiple lines, the cursor doesn't return between the quotes.
For example, enter
Line1 (hard return)
Line2
Then click the "" button.
If this is a big deal, please don't spend any time on it... but if there's a quick fix, like some way to add an if statement to detect the hard return, then adjust the -1 to -2, I'm game!

I figured it out - this seems to be working!

Please Login or Register  to view this content.

Thanks for your help Leith... by the way, it's not chr(34) it's chr(10) for the returns - stupid mistake. Seems to be working quite nicely now, thanks to you!