Thanks for that Roy, I appreciate it. I still seem to be missing something unfortunately.
What is wrong with this code? I can't see that anything is being copied let alone pasted or saved in the new workbook
Private Sub Test()
Dim xl As Object, sh1 As Object, sh2 As Object, wr As...