Calling a sub

[BOBODD]

Someone else posted this really useful code for validating textboxes:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'numbers
Case Else 'Discard anything else
Beep
KeyAscii = 0
End Select
End Sub

Only problem is that I have numerous textboxes to check and I've currently
listed this for every box.

How do I package this so that for each textbox I can use something similar to:

Private Sub txtBankNum4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call NumCheck
End Sub

 

[Jim Thomlinson]

Try somethin like this...

Private Sub txtBankNum4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call NumberValid(KeyAscii)
End Sub

Private Sub NumCheck(ByRef KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'numbers
Case Else 'Discard anything else
Beep
KeyAscii = 0
End Select
End Sub