Hi Robert,
Thank you very much for your help. I am getting an error at Sub Macro1(). ' Expected end sub'