Currently I have hardcoded like below and replaced 
ThisWorkbook.Path
with 
ODLocation
ODLocation = Environ("USERPROFILE") & "\Company Name\Central Backup - One Drive - IA Database\Action Plan Tracker\FY 2020-21 Q4"