我需要显示一个msgbox，如果单元格包含除数字以外的任何内容，则退出sub。现在它给出了一个空白

Sub CheckCellContent()
    Dim cell As Range
    Dim content As Variant
    
    ' 获取当前选中的单元格
    Set cell = Selection
    
    ' 检查单元格内容
    content = cell.Value
    
    ' 判断单元格内容是否为数字
    If Not IsNumeric(content) Then
        MsgBox "单元格包含除数字以外的内容！"
        Exit Sub
    End If
    
    ' 如果单元格内容为数字，则继续执行其他操作
    ' TODO: 在这里添加你的代码
    
End Sub