Workbooks("KPI 0044 wk" & (VBAWeekNum(Now(), 1)) & _
 " internal Shortages" & ".xls")
Norie so this will work like this

Merc