Find を行っているのは、Loop を想定しているのでしょうか?
単一値 に対しての検索であり、同じ行の 9列目の値を取得したいのであれば
VLOOKUP では 不足なのでしょうか?
セル関数で、
=VLookUp検索値1,'C:\〜〜\[DATA.xlsx]Sheet1'!$A$1:$I$1000,9,0)
で、当該ファイルを開かなくとも取得できませんか?
それで満足するなら、
その数式を、VBA で、
セルの関数として 設定してあげれば良いでしょう。
Range("A1").FormulaLocal = "=VLookUp検索値1,'C:\〜〜\[DATA.xlsx]Sheet1'!$A$1:$I$1000,9,0)"
あとは、必要に応じて A1 の値を取得すれば良いです。
※ WorksheetFunction で、VLookUp を使用する場合には
対象となるファイルが開いていないとエラーになりますので
一度、セルの関数として設定する案としています。