Vba 范围。查找方法、对象变量或未设置块错误

我似乎无法自己调试代码。我是VBA的新手，非常感谢您的帮助！！！我在SearchRange.Findmin.Select行上获取对象变量或With Block Not Set error。提前谢谢

子FindStart

Dim SelectedRange As Range, EachRow As Range, SearchRange As Range
Set SelectedRange = Selection
Set SearchRange = Rows(2)

For Each EachRow In SelectedRange.Rows

    Dim min As Double
    min = Module7.MinSelected(EachRow)

    SearchRange.Find(min).Select

    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent5
    .TintAndShade = 0.399975585192419
    .PatternTintAndShade = 0
    End With
Next EachRow

---

End Sub

抛出错误时突出显示哪一行？SearchRange.Findmin.Select将在SearchRange中不存在min时出错。您应该将其分为两部分-首先查找并检查它是否实际返回一个范围，然后才处理格式设置，无需选择任何内容。可能的重复项