ACCESS VBA Cells 範囲指定エラー

使用ソフト・言語

使用ソフト：Ａｃｃｅｓｓ２０１６
使用言語：ＶＢＡ

発生しているエラー

WsObj.cells(3, 1), cells(5, j - 1).AutoFilter

の行で、Cellsだけで範囲指定しているため、構文エラーとなっています。
どのように範囲指定すればよろしいでしょうか？

コード一覧

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.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.cells(i, j) = ""
48      '行カウントを加算する
49      j = j + 1
50    '次の行のＡ列セルが空になるまで繰り返す
51    Loop Until WsObj.cells(1, j) = ""
52    '３列目～５列目にフィルターを設定する
53    'この行で構文エラーが発生してしまいます。
54    WsObj.cells(3, 1), cells(5, j - 1).AutoFilter
55    'Excelを保存して閉じる
56    WBObj.Save   'ワークブックを保存する
57    WBObj.Close 'ワークブックを閉じる
58    AppObj.Quit
59  Exf = Dir()
60  'ファイルがなくなるまで繰り返す
61  Loop Until Exf = ""
62End Sub