エクセルVBAで、VLOOKUP関数を使うとエラーが出る

質問

Excel97を使用しています。
ユーザーフォームを作っています。
下記のコードで、課名に対応した部名を表示させようとしたのですが、
「WorksheetFunctionクラスのVlookupプロパティを取得できません」
と出てきてしまいます。

Private Sub CB_課名_AfterUpdate()
　LB_部名.Caption = Application.WorksheetFunction.VLookup(CB_課名, "部", 2, False)
End Sub

CB_課名はコンボボックス、LB_部名はラベル、
"部"は名前を付けたセル範囲です。その1列目はCB_課名のRowSourceで、2列目が部名です。

VBAでVlookup関数を使ったコードを公開されているサイトがありましたので、使えないことはないと思ったのですが、どこか書き方がおかしいのでしょうか？
ご存知の方、どうぞよろしくお願いいたします。

回答No.1

kmb01 · ベストアンサー

Excel2000ですが、
Dim s$
s = Application.WorksheetFunction.VLookup("ABC", Range("部"), 2, False)
Debug.Print s
で動作しました。

お礼

ご回答どうもありがとうございます。
検索範囲のRange()というのが足りなかったのですね。
とても助かりました。
また分からないことがありましたらよろしくお願いします。