Getting Run-time Error After Export ActiveSheet

[Prasad K]

Hi Excel Experts

i have getting run time error after i export activesheet as new workbook to given directory


it is run-time error message i have getting
-----------------------------------------------------
Run-time error'1004':

Method'SaveAs' of object'_Workbook' failed
-----------------------------------------------------

Sub Export()
    ActiveSheet.Copy
    Answer = InputBox("Enter Name of New Workbook", "New Workbook")
    UserDirectory = InputBox("Please Enter Directory To Save This File | Enter Directory Like This C: ")
    ActiveWorkbook.SaveAs Filename:= _
    UserDirectory & "\" & Answer & ".xlsx", FileFormat:=51
End Sub

 

[Prasad K]

Hi Excel Experts

i have getting run time error after i export activesheet as new workbook to given directory


it is run-time error message i have getting
-----------------------------------------------------
Run-time error'1004':

Method'SaveAs' of object'_Workbook' failed
-----------------------------------------------------

Sub Export()
    ActiveSheet.Copy
    Answer = InputBox("Enter Name of New Workbook", "New Workbook")
    UserDirectory = InputBox("Please Enter Directory To Save This File | Enter Directory Like This C: ")
    ActiveWorkbook.SaveAs Filename:= _
    UserDirectory & "\" & Answer & ".xlsx", FileFormat:=51
End Sub

My Problem Have Been Solved

I Have Added (On Error Resume Next) in this Code