如何设置使用Excel VBA进行search的列?

我正在尝试仅在列B中执行search,但正在search整个工作表下面的代码。 如何更改我的代码以仅search列B?

Columns("B:B").Select Cells.Find(What:=Region, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate 

 Columns("B:B").Find(What:=Region, After:=Range("B1"), LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate