Need help while saving the file

[kishoremcp]

Hi I have the below macro to save the file in a pirticular location and i need help in overwriting the file if it is saving for the next time.

Sub export()

Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet5", "Sheet6")).Copy

Set wbNew = ActiveWorkbook
With wbNew
    ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\Kishore\My Documents\SPlit" & "\001.xls"
    Application.DisplayAlerts = True
    .Close
    

End With
End Sub

[Pulsus]

kishoremcp,

Try this:

Sub export()

Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet5", "Sheet6")).Copy

Set wbNew = ActiveWorkbook
With wbNew
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\Kishore\My Documents\SPlit" & "\001.xls"
    Application.DisplayAlerts = True
    .Close
    

End With
End Sub