VBA Code to save worksheet to new workbook

[Wafee]

Hi,

There are lot of similar questions but somehow its not working out for me.

I want to save the sheet (Source) from the active workbook as a new workbook where sheet name remains same and work book name must be "Source dd/mm/yy".xlsx.

This workbook needs to be saved in the same path as active work book whihc is "C:\Reports\Source". thank you in advance.

 

[Fluff]

How about

Sub Wafee()
   Dim Pth As String
   
   Pth = ActiveWorkbook.Path
   Sheets("Source").Copy
   ActiveWorkbook.SaveAs Pth & "\Source " & Format(Date, "dd-mm-yy") & ".xlsx", 51
End Sub

 

[Wafee]

How about

Sub Wafee()
   Dim Pth As String
   
   Pth = ActiveWorkbook.Path
   Sheets("Source").Copy
   ActiveWorkbook.SaveAs Pth & "\Source " & Format(Date, "dd-mm-yy") & ".xlsx", 51
End Sub

Thanks mate. That worked.

 

[Fluff]

You're welcome & thanks for the feedback.