or
Sub M_snb() Sheet1.UsedRange.Columns(1).Copy GetObject(, "Word.application").activedocument.Paragraphs(1).Range.Paste End Sub
NB. Avoid any 'select' or 'activate' in VBA.
or
Sub M_snb() Sheet1.UsedRange.Columns(1).Copy GetObject(, "Word.application").activedocument.Paragraphs(1).Range.Paste End Sub
NB. Avoid any 'select' or 'activate' in VBA.
MD,
I just wanted to thank you for all your help on this. I sincerely appreciate all that you have done for me.
Regards,
Ken Mc