Access VBA Excel Cells指定エラー

##使用ソフト・プログラミング言語
ソフト：Ａｃｃｅｓｓ２０１６
言語：ＶＢＡ

前提・実現したいこと

ＡｃｃｅｓｓのＶＢＡにて特定のフォルダ内の
『．Ｘｌｓｘ』拡張子の全ファイルを開き、書式設定をして保存・終了を実施したいです。

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

WsObj.Range(cells(i, j))の行にてエラーが発生しています。

VBA
1コンパイルエラー：SubまたはFunctionが定義されていません。

該当のソースコード

VBA
1Public Sub Format()
2
3  Dim AppObj As Object    'Excel.Applicationオブジェクトの宣言
4  Dim WBObj As Object     'Excel.Workbookオブジェクトの宣言
5  Dim WsObj As Object      'Excel.WorkSheetオブジェクトの宣言
6  Dim Path, Exf As String
7  Dim i, j As Integer: i = 1: j = 1
8  'Excelファイルのパスを指定
9  Path = "Application.CurrentProject.Path\"
10  '※　Excelファイルが使用するAccessファイルと同じフォルダにある場合の表記
11  Exf = Dir(Path & "*.xlsx")
12
13  '
14  Do
15    '実行時バインディング
16    Set AppObj = CreateObject("Excel.Application")
17    '編集を実施するワークブックを開く
18    Set WBObj = AppObj.WorkBooks.Open(Exf)
19    '編集を実施するワークシートを設定する
20    Set WsObj = WBObj.Worksheets(1)
21    AppObj.Visible = False   'Excelアプリケーションを表示しない
22    '繰り返し処理を実行する
23    Do
24      '繰り返し処理を実行する
25      Do
26        '文字列に対して書式設定を行う【省略記述 開始】
27        With WsObj.Range(cells(i, j)).Font
28          'フォントを変更する
29          .Name = "ＭＳ Ｐゴシック"
30          '文字サイズを変更する
31          .Size = 16
32          '文字列を太字にする
33          .Bold = True
34          '文字色を変更する
35          .Color = RGB(0, 0, 0)
36        '省略記述 終了
37        End With
38        '現在の行が偶数行の場合
39        If j Mod 2 = 0 Then
40          'セルの背景色を変更する
41          WsObj.Range(cells(i, j)).Interior.Color = RGB(153, 204, 255)
42        '分岐処理を終了する
43        End If
44        '次の列に移動する
45        i = i + 1
46      '現在の行にて、空欄のセルになるまで繰り返す
47      Loop Until WsObj.Range(cells(i, j)) = ""
48      '行カウントを加算する
49      j = j + 1
50    '次の行のＡ列セルが空になるまで繰り返す
51    Loop Until WsObj.Range(cells(1, j)) = ""
52    '３列目～５列目にフィルターを設定する
53    WsObj.Range(cells(3, 1), cells(5, j - 1)).AutoFilter
54    'Excelを保存して閉じる
55    WBObj.Save   'ワークブックを保存する
56    WBObj.Close 'ワークブックを閉じる
57    AppObj.Quit
58  'ファイルがなくなるまで繰り返す
59  Loop Until Exf = ""
60End Sub