vba - 別のワークブックを参照する名前付き範囲からのドロップダウン検証

Question

「Test」と「Screen_Reference_Data_Sheet」の 2 つのワークブックがあります。「Screen_Reference_Data_Sheet」ワークブックのデータを含む名前付き範囲を使用して、「Test」にドロップダウン リストを作成しようとしています。

以下は私が使用しているコードで、「.Add Type:...」行でエラー Run Time Error 1004 をスローしています。

1 つのワークブックのデータのみを使用する場合はこれを達成できますが、このエラーが発生するのは別のワークブックからデータを取得する場合です。

Sub GetScreenNames()
Path = Application.ActiveWorkbook.Path
RefFilePath = Path & "\Screen_Reference_Data_Sheet.xls"
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(RefFilePath)

Dim rng1 As Range
Set rng1 = objWorkbook.Sheets("Keywords_Action_Screen").Range("B2:B4")
ThisWorkbook.Names.Add Name:="screenslistdata", RefersTo:=rng1

With ThisWorkbook.Sheets("Sheet1").Range("A1:A3").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween,    Formula1:="=screenslistdata"
End With

objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
End Sub

ここで私が間違っていることについてのアイデアはありますか?