excel – How to make more than one csv file from xls file?

I have provided a vba version of my vbs code from Export each sheet to a separate csv file

It saves individual sheets to the same path as the host workbook (ActiveWorkbook) with the name of each sheet tab being used from the host workbook for the filename(s).

Sub SaveAsCSV()
Dim objWB As Workbook
Dim objws As Worksheet

Set objWB = ActiveWorkbook

If Len(objWB.Path) = 0 Then
MsgBox ActiveWorkbook.Name & " is not saved. Please save file then re-run this code", vbCritical
Exit Sub
End If

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .DisplayAlerts = False
End With

For Each objws In objWB.Sheets
  objws.Copy
  ActiveWorkbook.SaveAs objWB.Path & "\" & objws.Name & ".csv", xlCSV
  ActiveWorkbook.Close False
Next

With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .DisplayAlerts = True
End With

End Sub