Copy Multiple sheets to new workbook
Results 1 to 1 of 1

Thread: Copy Multiple sheets to new workbook
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    Board Regular
    Join Date
    Mar 2019
    Location
    India
    Posts
    185
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default Copy Multiple sheets to new workbook

    Hi everyone,

    Here i am trying to copy multiple worksheets to new workbook and below is my code

    Code:
    Option Explicit
    
    
    Sub Save_File()
    Application.EnableEvents = False
    
    
    Dim FlName As String
    Dim FilePath As String
    Dim newfilename As String
    
    
    
    
    FlName = "Copy"
    FilePath = Cells(2, "K").Value 
    Sheets(Array("Sheet1", "Sheet2")).Copy
    
    
    newfilename = FilePath & "\" & FlName
    
    
        With ActiveWorkbook
            .ActiveSheet.Buttons.Delete
            .ActiveSheet.Range("K:O").Clear
            .ActiveSheet.Range("A1").Select
            .SaveAs newfilename
            .Close 0
        End With
    
    
    Application.EnableEvents = True
    
    
    End Sub
    This code is throwing me an "Path/File access error:'.\VB19F3.tmp'

    Regards,
    Dhruv
    Last edited by GirishDhruva; Aug 1st, 2019 at 12:26 AM.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •