用于选择包含单词的行的VBA代码

Question

我们如何在Excel上创建搜索功能？我希望能够在搜索框中添加一个单词，并且包含它的行应该被“选中”。

我有这个：

Sub find_highlight() 

w = InputBox("What to find?") 

Cells.Find(What:=(w), After:=ActiveCell, LookIn:=xlFormulas, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
MatchCase:=False).Activate 
 'Rows("51:51").Select
With Selection.Interior 
    .ColorIndex = 6 
    .Pattern = xlSolid 
    .PatternColorIndex = xlAutomatic 
End With 
End Sub 

这只突出显示一个单词而只突出一个单词。我想要选择包含该单词的所有行。