Software/programming language used

Software: Access 2016
Language: VBA

In a specific folder in Access VBA
". I want to open all files with the "Xlsx" extension, format them, and save/end them.

Error message

An error has occurred in the WsObj.Range (cells (i, j)) line.

Compile error: Sub or Function is not defined.
Applicable source code
Public Sub Format ()
  Dim AppObj As Object 'Excel.Application object declaration
  Dim WBObj As Object 'Excel.Workbook object declaration
  Dim WsObj As Object 'Excel.WorkSheet object declaration
  Dim Path, Exf As String
  Dim i, j As Integer: i = 1: j = 1
  'Specify Excel file path
  Path = "Application.CurrentProject.Path \"
  '* Notation when the Excel file is in the same folder as the Access file used
  Exf = Dir (Path&"* .xlsx")
    'Runtime binding
    Set AppObj = CreateObject ("Excel.Application")
    'Open the workbook for editing
    Set WBObj = AppObj.WorkBooks.Open (Exf)
    'Set the worksheet to be edited
    Set WsObj = WBObj.Worksheets (1)
    AppObj.Visible = False 'Do not show Excel application
    'Repeat process
      'Repeat process
        'Set the format for the text [Start abbreviation]
        With WsObj.Range (cells (i, j)). Font
          'Change font
          .Name = "MS P Gothic"
          'Change text size
          .Size = 16
          'Bold text
          .Bold = True
          'Change the text color
          .Color = RGB (0, 0, 0)
        'Omitted description End
        End With
        'If current row is even
        If j Mod 2 = 0 Then
          'Change cell background color
          WsObj.Range (cells (i, j)). Interior.Color = RGB (153, 204, 255)
        'End branch processing
        End If
        'Move to the next column
        i = i + 1
      'Repeat until there is a blank cell in the current row
      Loop Until WsObj.Range (cells (i, j)) = ""
      'Add row count
      j = j + 1
    'Repeat until next row A column cell is empty
    Loop Until WsObj.Range (cells (1, j)) = ""
    'Set filters in the 3rd to 5th columns
    WsObj.Range (cells (3, 1), cells (5, j-1)). AutoFilter
    'Save and close Excel
    WBObj.Save 'Save the workbook
    WBObj.Close 'Close workbook
  'Repeat until no more files
  Loop Until Exf = ""
End Sub

How should I fix it?
The Excel file to be opened and the Access file to be executed are saved in the same path.