VBA: Save file as .csv with sequential numbering

Good day Community,

I am trying to save one sheet from a macro-enabled file as a .csv document. I will need to save it every month so each month I would like to save the file with a new number (e.g. Test File 1.csv; Test File 2.csv; Test File 3.csv etc.).

I have tried the following code but it always gets stuck at the part that I have highlighted in yellow below and I get the attached error message. Any ideas on how to move past this would be appreciated!

(I am using Excel on Mac)

Sub SaveSheetAsCSVWithSequence()     

Dim ws As Worksheet     
Dim filePath As String     
Dim fileName As String     
Dim fileExtension As String     
Dim newFileName As String     
Dim fileSuffix As Integer     
Dim fullFilePath As String       

' Set the worksheet you want to save     
Set ws = ThisWorkbook.ActiveSheet       

' Set the file path (current workbook path)    
   
filePath = "/Users/xxxx/Desktop/Testing Save As.xlsm" & "\"       

' Set the base file name (current workbook name without extension)     
fileName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)       

' Set file extension to .csv     
fileExtension = ".csv"       

' Initialize suffix counter     
fileSuffix = 1       

' Loop to check if a file with the same name and suffix already exists     
Do         
' Construct new file name with sequence number suffix         
newFileName = fileName & "_" & fileSuffix & fileExtension         
fullFilePath = filePath & newFileName         

' Increment suffix if file already exists         
fileSuffix = fileSuffix + 1     
Loop While Dir(fullFilePath) <> ""       

' Save the active sheet as a CSV file with the new name     

ws.Copy     
ActiveWorkbook.SaveAs fileName:=fullFilePath, _     
FileFormat:=xlCSVUTF8, CreateBackup:=False     

' Close the CSV file after saving
ActiveWorkbook.Close False      

' Notify the user     
MsgBox "File saved as: " & fullFilePath, vbInformation End Sub