フォルダに複数のシートが入っていて、それぞれ○○.xls(○は名字)のファイルがあって、それの○○(○は名字)のシートのみを繰り返し検索、抽出を繰り返すにはどうしたらいいですか？

指定シートのみ繰り返し検索の仕方をご教授お願いします。

file = Dir(path & "*.xls")

Do While file <> ""

Set book = Workbooks.Open(path & file)

For Each sheet In book.Worksheets

Set f = sheet.Cells.Find(kwd,LookIn:=xlValues, lookat:=xlWhole)

If Not f Is Nothing Then

firstAddress = f.Address

rowtar=f.row

列の転記開始。