Export Specific Sheets to New Workbook to Drive

[Senthil Murugan]

Dear All

I need code for

To export specific Sheets(s) to New Workbook in Specific Drive with New Workbook Name

Note : Copy data in sheet + shapes ( images ) But without Command Buttons


Thanks in Advance

 

[Logit]

Here is a macro you can work with. You will need to make a few changes to meet your specific needs.

Option Explicit

Sub cpypste()
Dim myDateStamp As String
Dim Filepath As String
Dim ws As Worksheet

Set ws = Sheets("Sheet1")

Sheets("Sheet1").Select
    Application.DisplayAlerts = False
    myDateStamp = Format(Date, "yyyymmdd")
    Filepath = Environ("USERPROFILE") & "\OneDrive\DeskTop\" & myDateStamp & ".xlsx"
    Sheets("Sheet1").Activate

Sheets("Sheet1").Shapes("Button 1").Visible = False



        Sheets("Sheet1").Copy
     
                  ActiveWorkbook.SaveAs Filename:=myDateStamp
                   With ActiveSheet
                  If ws.Name <> "" Then
                   
                       .Name = myDateStamp
                   
                  End If
                  End With

    ActiveWorkbook.SaveAs Filename:=Filepath
  
    ActiveWorkbook.Close

ActiveWorkbook.Activate
ActiveWorkbook.Sheets("Sheet1").Shapes("Button 1").Visible = True
   
   
    Application.DisplayAlerts = True
End Sub