Save Spreadsheets as Separate File with Name and Given Date

[kundanlal]

Hello Every One..

Need one help..

Enclosed please find a Sample file with some data.

I need to Save Each Sheet as a Seperate File (with what ever data available in respective sheets) with Same Name as that of Sheet.

Also need to add some Text and date alongwith file name(if vba can as Text and date to enter, it is appreciated".

i.e. in this case.. The files to be created as

Delhi-Ppt Data-17-10-2019.xls
Surat-Ppt Data-17-10-2019.xls
Pune-Ppt Data-17-10-2019.xls

Is it possible..

Thanks and Regards,

Kundanlal

 

[PCI]

See next code

Option Explicit

Sub Treat()
Dim WkPath As String
Dim Ws  As Worksheet
Dim WkDate As String

    WkPath = ActiveWorkbook.Path
    WkDate = Format(Now(), "dd-mm-yyyy")
    For Each Ws In Sheets
        Workbooks.Add

        Ws.UsedRange.Copy Destination:=Cells(1, 1)
        ActiveWorkbook.SaveAs WkPath & "\" & Ws.Name & "-Ppt Data " & WkDate
        ActiveWorkbook.Close
    Next Ws
End Sub

 

[kundanlal]

Thank you Sir..

Kind Regards,

Kundanlal

 

[PCI]

You're welcome
Enjoy Excel