Restricting data input in multiple textboxes

I have 64 textboxes on a userform. I want to restrict input to numeric values only. Have found some code that works as follows:

Public Sub TextBox1_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
End Select
End Sub

Question is how can this code be writen without having to create 64 entries?

Any help much appreciated.

Cheers

PeterT

Originally Posted by peter.thompson

I have 64 textboxes on a userform. I want to restrict input to numeric values only. Have found some code that works as follows:

Public Sub TextBox1_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
End Select
End Sub

Question is how can this code be writen without having to create 64 entries?

Any help much appreciated.

Cheers

PeterT

perhaps create a sub with the loop with the function in it?

Thanks for the reply. However am still unsure how to code this and make it work - any hel[ appreciated.

CHeers

PeterT

One way is to use a Class Module to handle the events for multiple controls.

There is an example here: Toggle Button Events Class

That article also has some useful links to the following pages:

Handle Multiple UserForm Buttons With One Subroutine

Handling Worksheet Control Events Using a Class Module

The same principles can be applied to any controls on userforms.
Using the pages above I got your example going with only one keypress event for 8 textboxes.

Thanks for the information, much appreciated! Could you post the code that you got to work? I'm still not quite there yet!

Cheers

PeterT

Now have code working fine. Thanks T-J.

PeterT