When you are using Text Boxes in Excel Macros then there are some instances where you want to restrict some entries in the Text Box.

For example, in A Textbox where you are entering Amount. Here you may need that you should be able to Enter All numeric characters from 0-9 and also Decimal (.) and Minus Sign(-).

You don’t have any inbuilt functionality in Excel Textbox to restrict it to only Numeric Values. However, by writing a piece of Code under KeyPress Event of Textbox, you can achieve this.

1.  To Restrict Non-Numeric Values in a Text Box

   To store currency amounts in a text box you should allow two special characters too like Decimal(.) and Minus Sign(-).

   Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
       Select Case KeyAscii
           Case Asc("0") To Asc("9")
           Case Asc("-")
               If InStr(1, TextBox1.Text, "-") > 0 Or TextBox1.SelStart > 0 Then
                   KeyAscii = 0
               End If
           Case Asc(".")
               If InStr(1, Me.TextBox1.Text, ".") > 0 Then
                   KeyAscii = 0
               End If
           Case Else
               KeyAscii = 0
       End Select
   End Sub
   

2.  To Restrict All Keys Except Alphabets in Text Box in Excel Macro

   Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
       Select Case KeyAscii
           Case Asc("a") To Asc("z")
           Case Asc("A") To Asc("Z")
           Case Else
               KeyAscii = 0
       End Select
   End Sub