Help with Someone else is.... error while saving

[ipon70]

I have an error which is getting annoying.
Here is the code that is running on the laptop, the first code is on the main sheet, the last 3 are modules.
I get an error randomly that says something to the effect "someone else is working in...". There is no one else working on this file, just this laptop has it open, or really even has access. The only other thing touching it is PowerBi to pull the data from Columns G-K, once every 2 minutes.
I would love to setup some sort of error handler that would just get rid of the error, and try again a little later. Is that possible??

Thanks again for any help, you guys are always so knowledgable.



Sub LoopForever()
For i = 0 To 5000000
Application.Wait (Now + TimeValue("00:03:00"))
Call UpDown
Call Refresh
Call SaveMe
Next i
End Sub

-----------------------------
Sub UpDown()
Worksheets("wait").Range("I2:I6").Copy
Worksheets("wait").Range("j2:j6").PasteSpecial Paste:=xlPasteValues
End Sub
--------------------------------------
Sub Refresh()
ThisWorkbook.RefreshAll
End Sub
------------------------------------
Sub SaveMe()
ThisWorkbook.Save
End Sub

 

[Rijnsent]

My first suspect would be that the .Save process can't start unless the .RefreshAll process has finished and they are sometimes colliding. I don't know how you could catch that with an error handler. You can try this approach for the RefreshAll: How to wait until ActiveWorkbook.RefreshAll finishes before executing more code

If you want to try error handlers, this might do something:

Sub SaveMe()
    On Error GoTo SaveFailed
    ThisWorkbook.Save
    Exit Sub
SaveFailed:
    'handle error here, maybe set a value in a sheet?
End Sub

 

[ipon70]

My first suspect would be that the .Save process can't start unless the .RefreshAll process has finished and they are sometimes colliding. I don't know how you could catch that with an error handler. You can try this approach for the RefreshAll: How to wait until ActiveWorkbook.RefreshAll finishes before executing more code

If you want to try error handlers, this might do something:

Sub SaveMe()
    On Error GoTo SaveFailed
    ThisWorkbook.Save
    Exit Sub
SaveFailed:
    'handle error here, maybe set a value in a sheet?
End Sub

Ok thanks. I have all but given up. I will try a simple wait command and see if that works