为什么会出现运行时错误类型不匹配。谢谢

qinhuan66

现当A1输入值时能变红色了，现没度出现两个小问题。1、如果想恢复公式把下面的公式向上拉，2、或者清2个以上单元格的公式（即A1、A2、A3一起清空）即出现下图所示的错误。
以下为代码。

• Private Sub Worksheet_Change(ByVal Target As Range)
•    Set Rng = Intersect(Target, Range("A1:A10"))
•    If Rng Is Nothing Then
•       Exit Sub
•    Else
•       If CStr(Target.Value) = Target.Formula Then Target.Font.Color = vbRed
•    End If
• End Sub
  

fffox

当target为单元格区域时，不能直接用cstr函数转换单元格区域的值。