Hello,
This macro worked smoothly for years and still it works as long the Filelocation is on my hard drive or on any external drive, like:
H:\My Job
Lately I saved my files on OneDrive and from there, the macro is not opening MyFolder, but opens the file explorer instead, when the location looks like:
H:\RA\Main\OneDrive - My Co , Inc\My Job

Sub OpenMyFolder()
Dim Filelocation As String
Dim str_folder As String
On Error GoTo 500
Filelocation = Application.ActiveWorkbook.path
If Dir(Filelocation & "\MyFolder", vbDirectory) = "" Then
Call Shell("explorer.exe " & Filelocation, vbNormalFocus)
Else
Call Shell("explorer.exe " & Filelocation & "\MyFolder", vbNormalFocus)
End If
500 End Sub
However, if I copy / paste the H:\RA\Main\OneDrive - My Co , Inc\My Job into the explorer window bar, than I get right into My Job folder.

Why isn't the macro getting me there?
Please advise.
Thanks