用VBA在EXCEL中查找并更改字体颜色（修改代码）,该如何解决

用VBA在EXCEL中查找并更改字体颜色（修改代码）
我是在学习VBA在EXCEL财务中的应用。我现在可以把数字金额转换为大写的汉字了，希望在出现“负”这个字的时候，将当前单元格改成红色。但是运行的时候就会卡在那里出现未响应，我写的代码如下，请XDJM帮我调试，谢谢。
举例：将黑色的“负伍元整”全部改为红色的。

Sub 红字()
Range("A1:Z99").Select
  Set red = Selection.Find(负, LookIn:=xlValues)
  If Not red Is Nothing Then
  Do
  red.Font.ColorIndex = 3
  Set red = Selection.FindNext(red)
  Loop While Not red Is Nothing
  End If
End Sub

------解决方案--------------------------------------------------------
excel本身就有这种功能 可以不用代码

选中你要处理的单元格区域------开始-----条件格式-----新建规则-----选择规则类型：“只为包含以下内容....”------特定文本 包含 负 ----设置格式 ------确定


ok