Dim objXL As Object, x
Set objXL = CreateObject("Excel.Application")
With objXL.Application
.displayalerts = False
.Visible = True
.workbooks.Open "your excel file's path.xls"
.workbooks("your excel file's name").SaveAsFileName:="path and name of your csv file.csv"
.workbooks("path and name of your csv file.csv").Close , savechanges:=True
End With
objXL.Quit
Set objXL = Nothing