Better than SendKeys, use the KeyPress event.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii 57 Then
KeyAscii = 0
End If
End Sub
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"Vasant Nanavati" <vasantn AT aol DOT com wrote in message
...
Is this a TextBox on a UserForm?
Somewhat crude, but try the following:
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) Then _
SendKeys "{BACKSPACE}"
End Sub
--
Vasant
"Greg B" wrote in message
...
Hi all just wondering how I can get someone only to type
number in a certain
textbox?
Thanks in advance
Greg