Validation 文本框中仅按字母顺序输入

我需要在excel VBA中验证一个用户表单的文本框，该表单应该包含名称。我需要停止任何类型的数字输入。我尝试了Isnumeric函数，但它只在整个文本框只包含数字时才起作用。如果我输入这样的数据：“jack1”，我需要找到一个阻止我继续的代码。有什么建议吗？？？

试试这个

Private Sub TextBox1_KeyPress(ByVal KeyAscii As Form1.ReturnInteger) 
Select Case KeyNumbers
Case Asc("0") To Asc("99") 
Case Asc(".") 
If InStr(1, TextBox1.Text, ".") > 0 Then 
KeyNumbers = 0 
End If 
Case Else 
KeyNumbers = 0 
End Select 
End Sub 

---

我试过了，但即使我把文本框的名字改成了我的文本框的名字，它还是不起作用。我想在保存按钮中使用它。因此，如果单元格中的任何位置都有一个数字，则sub将退出。