Private Sub TextBox1_Change()
    If Len(Me.TextBox1.Text) <> 1 Then Exit Sub
    Me.TextBox1.Activate
    ActiveCell = Me.TextBox1.Text
    Me.TextBox1.Text = ""
    ActiveCell.Activate
    Application.SendKeys "~"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With TextBox1
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
        .Width = ActiveCell.Width
        .Height = ActiveCell.Height
    End With
    Me.TextBox1.Activate
    End SubSub

Private Sub TextBox1_Change()
    If Len(Me.TextBox1.Text) <> 1 Then Exit Sub
    Me.TextBox1.Activate
    ActiveCell = Me.TextBox1.Text
    Me.TextBox1.Text = ""
    ActiveCell.Activate
    Application.SendKeys "~"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With TextBox1
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
        .Width = ActiveCell.Width
        .Height = ActiveCell.Height
    End With
    Me.TextBox1.Activate
    End SubSub