请问WORD或EXCEL的表格里，如何限定每个单元格的输入字符个数？即答即给分！

请问WORD或EXCEL的表格里，如何限定每个单元格的输入的字符个数？
---------------------------------------------------------------

对A1单元格限制不能超过5位数

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Len(Range("A1")) > 5 Then '不能超过5位数
MsgBox "最大允许输入5位数"
Range("A1").Value = ""
Range("A1").Select
End If
End Sub