Copy Multiple sheets to new workbook

[GirishDhruva]

Hi everyone,

Here i am trying to copy multiple worksheets to new workbook and below is my 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