or
Code: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.
Printable View
or
Code: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