Excel - VBA error 76 path not found

Este erro estava ocorrendo devido a planilha excel estar sendo aberta a partir de uma pasta o Sharepoint / OneDrive. 

Tem várias soluções, a mais rapida é a que esta descrito nos links - alterar as opções do OneDrive.

Outras requer a reconstrução do VBA.

---- link

https://stackoverflow.com/questions/65629706/excel-vba-get-physical-location-not-onedrive-url

https://answers.microsoft.com/en-us/msoffice/forum/all/online-path-returned-rather-than-local-path/2ea9970d-383b-4893-afab-38041fee65fe

------------------------------

 Dim fso as FileSystemObject, localPath as String, localFullFileName as String

localPath = fso.GetParentFolderName(fso.GetAbsolutePathName(Application.ActiveWorkbook.Name))
localFullFileName = fso.GetAbsolutePathName(Application.ActiveWorkbook.Name)




MsgBox oReportPath
MsgBox localPath