excel - 在列中查找文本条件，然后为整行添加边框

Question

我有一个 Excel 表。在 C 列中，我需要找到名称“自制”。然后我需要为整行添加一个边框。我按照提示进行操作，但错误提示Expected: =。我无法弄清楚我错过了=

Dim Wb As Workbook
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
    With Ws

Dim Homemade As Range

'Find "Homemade" in Column C
Set Homemade = .Range("C:C").Find("HOMEMADE", LookIn:=xlValues, lookat:=xlWhole)

'Add Border to Entire Row
With Homemade
.EntireRow.BorderAround (, xlThick, ,vbgreen)
End With

End with
Next Ws

标签： excelvba