Excel VBA to get always file path link to sharepoint

Question

While running VBA I want to capture File Path and Name. I want to receive file path always to SharePoint Location. I use:

ThisWorkbook.Path &am