主题：[求助]限制大写字母问题

某一列只能输入大写字母，如何写代码

 ValidateEdit事件

If e.Col.name = "第二列" Then
    For Each c As String In e.text
        If Asc(c) > 90 OrElse Asc(c) < 65 Then
            msgbox("只能输入大写字母")
            e.Cancel = True
            Exit For
        End If
    Next
End If

ok，谢谢