Access VBA Excelのセルにドロップダウンリストを

##使用ソフト・プログラミング言語
使用ソフト：Access2016
使用言語：VBA

前提・実現したいこと

Access VBAにてExcelを開き、先頭のシートの指定した範囲のセルにドロップダウンリストを作成したいです。

コードを作成いたしましたが、エラーが発生いたしました。

発生している問題・エラーメッセージ

Liという配列の内容をドロップダウンリストにしたいのですが、配列の内容をドロップダウンリスト化するところで、エラーが発生しました。

VBA
1実行時エラー'1004'
2アプリケーション定義またはオブジェクト定義エラーです

該当のソースコード

VBA
1Dim Exf as string
2Dim AppObj As Object    'Excel.Applicationオブジェクトの宣言
3Dim WBObj As Object      'Excel.Workbookオブジェクトの宣言
4Dim WsObj As Object      'Excel.WorkSheetオブジェクトの宣言
5'実行時バインディング
6Set AppObj = CreateObject("Excel.Application")
7'編集を実施するワークブックを開く
8Set WBObj = AppObj.WorkBooks.Open(Path & Exf)
9'編集を実施するワークシートを設定する
10Set WsObj = WBObj.Worksheets(1)
11'Excelアプリケーションを表示する
12AppObj.Visible = True
13col = 5:Count(i) = 15
14'２行目からデータが存在する最後の行までドロップダウンリストを作成する
15With WsObj.Range(WsObj.cells(2, Col), WsObj.cells(Count(i) + 1, Col)).Validation
16        .Add Type:=xlValidateList, _
17        AlertStyle:=xlValidAlertStop, _
18        Formula1:=Join(Li, ",")
19      End With