I have to do this whenever I save the excel file:

1. Save the file at one drive location (overwrite if same name file exists)
2. Go back to original location of the file and save it there as well (overwrite the file)

Code:

```
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False

    Dim thisPath As String
    Dim oneDrivePath As String

    thisPath = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    oneDrivePath = "C:\Users\Folder\OneDrive\" & ThisWorkbook.Name

    ActiveWorkbook.SaveAs _
    Filename:=oneDrivePath

    Do
    Loop Until ThisWorkbook.Saved

    ActiveWorkbook.SaveAs _
    Filename:=thisPath

    Do
    Loop Until ThisWorkbook.Saved

    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

```

But this doesn't works it's stucks in an infinte loop or Excel goes in Not Responding State. Anyidea how to achieve this task ?

The reason I can think of why it fails is maybe it's triggered everytime the file is saved but shouldn't `Application.EnableEvents = False` stop it from happening ? '

> 
> EDIT#1:
> 
> 
> 

I tried stepping through the code it goes into `Not Responding State` after the Code gets though `End Sub` line