I did actually think of that before and try it. Should give myself a
little more credit.

On running the vba code as you mentioned i now receive this error.

Run Time Error '9':
Subscript out of range

Debug highlights this row
Set shHR = Workbooks("HR.xls").Worksheets(1)

I'm no VBA / Marco expert, but it looks like the vba code is looking
for 2 workbooks. Whereby i only have one workbook and 2 worksheets
within the workbook.

Next idea?