Random users not able to save a shared Excel file with VBA Macros.

Hi All,

I'm having a bit of an issue with a couple of random people, not being able to save changes to a shared excel file.

When they are trying to save, they will receive a message that someone else is working in the file, but we are positive that no one is. It's totally random as well, and I've been pulling my hair out trying to find the answer. I think it might have something to do with their security settings, but can't find anything definitive. Wondering if anyone has faced the same. There is some basic copy/paste coding written in, but I don't think that that should cause the issue. I've included it below.

Sub D_Line_PEX_Update()
Dim wsPEX As Worksheet
Dim wsDLINE As Worksheet
Application.ScreenUpdating = False
Application.Workbooks.Open ("Address of Target File")
Application.DisplayAlerts = False


Application.ScreenUpdating = False

Set wsPEX = Workbooks("FY19-20 NY PEX Hub.xlsm").Worksheets("Supervisor Development")
Set wsDLINE = Workbooks("Hub D Line NY.xlsm").Worksheets("Supervisor Development")

wsDLINE.Range("C8:F20").Copy _
wsPEX.Range("D9:F21")

Set wsPEX = Workbooks("FY19-20 NY PEX Hub.xlsm").Worksheets("Supervisor Workload")
Set wsDLINE = Workbooks("Hub D Line NY.xlsm").Worksheets("Supervisor Workload")

wsDLINE.Range("E10:BD22").Copy _
wsPEX.Range("D11:BC23")


Set wsPEX = Workbooks("FY19-20 NY PEX Hub.xlsm").Worksheets("Project Status D-Line")
Set wsDLINE = Workbooks("Hub D Line NY.xlsm").Worksheets("Project Status D-Line")


wsDLINE.Range("D19:L150").Copy _
wsPEX.Range("D56:L187")

Set wsPEX = Workbooks("FY19-20 NY PEX Hub.xlsm").Worksheets("HR")
 Set wsDLINE = Workbooks("Hub D Line NY.xlsm").Worksheets("HR")


wsDLINE.Range("D10:I22").Copy _
wsPEX.Range("D15:I27")

Set wsPEX = Workbooks("FY19-20 NY PEX Hub.xlsm").Worksheets("Capital Efficiencies")
 Set wsDLINE = Workbooks("Hub D Line NY.xlsm").Worksheets("Capital Efficiencies")


wsDLINE.Range("C8:H22").Copy _
wsPEX.Range("B10:G24")

Set wsPEX = Workbooks("FY19-20 NY PEX Hub.xlsm").Worksheets("Volunteering Events")
 Set wsDLINE = Workbooks("Hub D Line NY.xlsm").Worksheets("Volunteering Events")

wsDLINE.Range("D8:O20").Copy _
wsPEX.Range("C46:N58")

Set wsPEX = Workbooks("FY19-20 NY PEX Hub.xlsm").Worksheets("Quarterly Review Tracker")
 Set wsDLINE = Workbooks("Hub D Line NY.xlsm").Worksheets("Quarterly Reviews")

wsDLINE.Range("E8:P20").Copy _
wsPEX.Range("C52:N64")


Workbooks("FY19-20 NY PEX Hub.xlsm").Close savechanges:=True
MsgBox "New Data has been transferred to the NY PEX Hub", vbExclamation

Application.ScreenUpdating = True

End Sub#