Macro to export last sheet to Desktop

[howard]

I would like a macro to save my last sheet with the same name as the sheet for if sheet name is July 2019 to save as July 2019 followed by -BR1 Data


This sheet to be saved will always be the last sheet tab


Your assistance is most appreciated

 

[howard]

I have attempted to write code, but It save each sheet

I only need the last sheet to be saved as a csv and to the desktop

 Sub Save_ActiveSheet()

         Dim WS_Count As Integer
         Dim I As Integer

         ' Set WS_Count equal to the number of worksheets in the active
         ' workbook.
         WS_Count = ActiveWorkbook.Worksheets.Count

         ' Begin the loop.
         For I = 1 To WS_Count
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name
            
         Next I

      End Sub

 

[Fluff]

You really should know better by now.
Please supply the cross post link.

 

[howard]

My apologies Fluff. I inavertently forgot to post the cross link


https://www.excelforum.com/excel-pr...o-add-sheet-after-last-sheet.html#post5169586

 

[Fluff]

Thank you