macro to save a worksheet as txt with the same name as the sheet

[prasadyanz]

I have workbook will 7 sheets, i want to save all of them as txt file with the same name as the excel steel.
as i am new to macro, it will be kind of you, if you could help me out

 

[patel45]

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