エクセルシートをアドインファイルにした場合、シートのありかの指定方法は？

質問

エクセルシートのデータを別の色んなシートから「関数呼出」で利用したい為
アドインファイルにしたいのですがうまくいきません。ご指導下さい。

下記のコード（一部表示）を実行した場合 2: で引っ掛かりエラーとなります。
「err= 91　オブジェクト変数またはwith ブロック変数が設定されていません。」

1: Dim tempRange As Range
2: tempRange = Workbooks("psteel.xla").Worksheets(1).Range("B4:Y4")
3: iti = Application.WorksheetFunction.Match(seinou, tempRange, 0)

シートの範囲指定が悪いと思うのですがどう指定すれば良いのでしょうか？
よろしくお願い致します。

===============================================
下記の 普通の.xlsファイルでは実行できます。

Public Function pss(ryaku, seinou)

On Error GoTo errhandle

iti = Application.WorksheetFunction.Match(seinou, Range("B4:Y4"), 0)
pss = Application.WorksheetFunction.VLookup(ryaku, Range("B6:Y209"), iti, False)
Exit Function

errhandle:
If Err = 1004 Then
pss = "name?"
Else
MsgBox "err= " & Err & " " & Err.Description
End If

End Function

回答No.2

papayuka · ベストアンサー

アドインって、やった事ないので上手く動くか判りませんが、、

set tempRange = Workbooks("psteel.xla").Worksheets(1).Range("B4:Y4")

又は

set tempRange = ThisWorkbook.Worksheets(1).Range("B4:Y4")

だとどうでしょう？

お礼

ありがとうございます。　うまく実行できました。
思ってもない所に落とし穴がありました。
set命令は付け足しと思い、今まで書いたことがありません。
このような場合は必ず必要なのですね。

ちなみに、ご回答のコードは両方とも正しく実行できました。

ありがとうございました。

回答No.1

hana-hana3

＞エクセルシートのデータを別の色んなシートから「関数呼出」で利用したい

エクセルでは「ユーザー定義関数」として実行される場合、受け取った値を変更したり、他のセルを参照したりすることはできません。

通常のマクロ（ＶＢＡ）から実行するしか方法はありません。

お礼

素速いご回答、ありがとうございました。
検討していましたが、No.2さんの方法で旨くいきました。