Add quotes to textbox and move cursor between them

**JP Romano** · 12-29-2010, 04:55 PM

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)

**Leith Ross** · 12-29-2010, 05:10 PM

Hello JP,

Add this code to the TextBox's GotFocus event on the worksheet. Be sure to change the name of the TextBox to match yours.

Private Sub TextBox1_GotFocus()

  If Not TextBox1.Value Like Chr(34) & "*" & Chr(34) Then
     TextBox1.Value = Chr(34) & TextBox1.Value & Chr(34)
  End If
  
  TextBox1.SelStart = Len(TextBox1.Value) - 1
     
End Sub