TextBox for Text Only

NEW! More Books..

Add Excel Answers & Search To Your Google Toolbar Details

Validating UserForm TextBox to Accept Only Text

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only ~~$145.00~~. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

See Also: TextBox for Numbers Only

Validating UserForm TextBox to Only Accept Text

If you are fairly comfortable with Excel VBA you will most likely want to design a UserForm to ensure correct use of your Spreadsheet. However, just placing some TextBoxes on a UserForm for users to enter data is sometimes not enough. For example, the TextBoxes may be intended to take only text data and not numbers. To do this you can use some code as shown below.

Dim bNumbers As Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    OnlyText
    Cancel = bNumbers
End Sub

Private Sub OnlyText()
	If TypeName(Me.ActiveControl) = "TextBox" Then

    	If ActiveControl = vbNullString Then Exit Sub
        	If IsNumeric(ActiveControl) Then
            	MsgBox "Sorry, text only"
            	ActiveControl = vbNullString
            	bNumbers = True
        	End If
        	
	End If
End Sub

As with any UserForm Control code, this code must reside in the Private Module of the UserForm Object

Excel Dashboard Reports & Excel Dashboard Charts 50% Off

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft Ž and Microsoft Excel Ž are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft