Cal,
Excel barks at the line below:

Set wb = ActiveWorkbook Set ws = ActiveSheet

Best,
Wolfgang