excel的vba问题，我想用vba查找所有有蓝颜色字体的单元格并选出来。 代码应该怎么写

这是我录的宏，运行后错误91：对象变量或with块变量未设置 请问如何解决？

Sub 宏1()
'
' 宏1 宏
'
'
With Application.FindFormat.Font
.Subscript = False
.TintAndShade = 0
End With
Range("A3:AL3").Select
Application.FindFormat.Clear
Application.FindFormat.NumberFormat = "@"
With Application.FindFormat
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
With Application.FindFormat.Font
.Name = "Tahoma"
.FontStyle = "加粗"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.Underline = xlUnderlineStyleNone
.Color = -65536
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Application.FindFormat.Borders(xlLeft).LineStyle = xlNone
Application.FindFormat.Borders(xlRight).LineStyle = xlNone
With Application.FindFormat.Borders(xlBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Application.FindFormat.Borders(xlDiagonalDown).LineStyle = xlNone
Application.FindFormat.Borders(xlDiagonalUp).LineStyle = xlNone
With Application.FindFormat.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Application.FindFormat.Locked = True
Application.FindFormat.FormulaHidden = False
Cells.Find(what:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=True).Activate
End Sub
每运行完一个with 中间的值都会变成 = <对象变量或with块变量未设置>
没运行完with的时候 = 什么都还是正常的
然后到cells.find().activate 的时候报错

相关了解……