TO convert Excel entire workbook in csv format

[patel]

Sub SheetsToCSV()
Application.DisplayAlerts = False
dpath = "C:\test\"      ' <<< to be changed
    For Each ws In Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs Filename:=dpath & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
        ActiveWorkbook.Close
    Next ws
Application.DisplayAlerts = True
End Sub