Use environment variables.
path = "C:\Users\@user@\CompanySharePointSite\CompanySharePointSite - Documents\Folder\Folder2\Table Template.sldtbt"
user = Environ("UserName")
path = VBA.Replace(path, "@user@", user)
Thanks! That worked perfectly. I think everybody should have their sharepoint root folder in their users folder so this should work for everyone, and if not I'll cross that bridge when I get there.
If all users would have same path except the user name in this line
"C:\Users\MyUserName\CompanySharePointSite\CompanySharePointSite - Documents\Folder\Folder2\Table Template.sldtbt"
then, use Ulf Stockburger's codes as that would be simple method.