Hallo,

Option Explicit

Sub Convert_CSV()
Dim strFile As String, wb As Workbook
  
Const strFolder = "C:\Users\s.sari.dksgmbh\Downloads\PDF-JOB3\"

Application.ScreenUpdating = False

strFile = Dir(strFolder & "*.csv")
Do While strFile <> ""
    Set wb = Workbooks.Open(strFolder & strFile, local:=True)
    wb.SaveAs strFolder & strFile & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    wb.Close False
    strFile = Dir
  Loop
End Sub

Gruß Werner