Data Validation (key press events) (1 Viewer)

Private Sub ControlName_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

        ' 65 To 90 and 97 To 122: These are all alpha chars, upper and lowercase
        ' 8 Backspace, 9 Tab Key, 32 Space Key

    Case 65 To 90, 97 To 122, 8, 9, 32
        ' DO NOTHING

    Case Else

        KeyAscii = 0
        MsgBox "Only Alphabetical Characters Allowed" 'optional

    End Select

End Sub