Solo Números en Textbox y No Letras ni Símbolos Excel Macros

Para solamente números

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Por.Dante Amor
    'solamente números
    Select Case KeyAscii
        Case 48 To 57             '0123456789
        Case Else: KeyAscii = 0
    End Select
End Sub

Para solamente letras

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Por.Dante Amor
    'solamente letras
    Select Case KeyAscii
        Case 65 To 90, 97 To 122     'A-Z, a-z
        Case 225, 233, 237, 243, 250 'á é í ó ú
        Case 193, 201, 205, 211, 218 'Á É Í Ó Ú
        Case 32, 241, 209            'barra espaciadora, ñ Ñ
        Case Else: KeyAscii = 0
    End Select
End Sub

Saludos.Dante Amor