Trying to click on hyperlink using vba but path changes week to week

ERT Utilization.xlsm
Debugging here on the first line. I've attached the file again for reference. Not sure if you can run since these are internal reports and might not work off our network.
Range("B4").Hyperlinks(1).follow
Windows("reportviewer").Activate
ActiveWorkbook.saveas Filename:= _
"D:\personal\10046733\Warehousing\ERT Reports\Midwest.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close