VBA Save as and overwrite file

thedeadzeds

Active Member
Joined
Aug 16, 2011
Messages
328
Hi Guys,

I have the below code which works great but is there a way to overwrite the files if they already exist

Code:
Sub Run()

Dim ws As Worksheet, newWb As Workbook


Application.ScreenUpdating = False
For Each ws In Sheets(Array("Bethan", "Hannah"))
   ws.Copy
   Set newWb = ActiveWorkbook
   With newWb
      .SaveAs Filename:="C:\Users\craig.jenkins\OneDrive - Mon Motors Ltd\Equal Allocation\" _
      & ws.Name & xlsx
      .Close (False)
   End With
Next ws
Application.ScreenUpdating = True


            
End Sub
 

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"

John_w

MrExcel MVP
Joined
Oct 15, 2007
Messages
6,811
Put
Code:
    Application.DisplayAlerts = False
and
Code:
    Application.DisplayAlerts = True
each side of the SaveAs.
 

Watch MrExcel Video

Forum statistics

Threads
1,132,969
Messages
5,656,152
Members
418,283
Latest member
Venkateswara Rao

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top