I think this is along the right lines...
Private Sub textbox1_KeyPress(ByVal KeyAscii As _
MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then
msgbox "Please only use numbers"
KeyAscii = 0
End If
End Sub
Hope it is of some use
--
Message posted from
http://www.ExcelForum.com