Just change
Code:
Set wbkActive = ThisWorkbook
to
Code:
Set wbkActive = ActiveWorkbook