thanks for all the help people
got a problem
Private Sub Transfer_to_Word_Click()
Dim appWord As Word.Application
Dim doc As Word.Document
'Set appWord object variable to running instance of Word.
Set appWord = GetObject(, "Word.Application")
'Make sure you put in the correct path for the...