Norman
I did as you instructed, but the macro would not start. I found the
following in Excel help:
ActiveSheet.UsedRange.Copy
This was sufficent because only column 1 has data in, and it was the whole
of column 1 I needed to copy.
Thanks for your help.
BCB


"Norman Jones" wrote:

Hi Black country boy,

If your workbook has previously been saved, change:

Set WB = Workbooks("Book1") '<<==== CHANGE

to

Set WB = Workbooks("Book1.xls") '<<==== CHANGE



---
Regards,
Norman