I have the following code, with everything carefully checked and in place, but it errors out at the line:[vba]Set myDoc = wdApp.Documents.Add(Template:="H:\Storage\My Documents\7 - Training\Forums\ExWd.doc")[/vba] with the message "Object Variable or With block variable not set"

Sub ExportFinalColumnToWord()
On Error GoTo errorHandler
Dim wdApp As Word.Application
Dim myDoc As Word.Document
Dim mywdRange As Word.Range
Dim MyColumnA As Excel.Range
Dim MyColumnB As Excel.Range
Dim MyColumnC As Excel.Range
Dim MyColumnD As Excel.Range
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
   Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set myDoc = wdApp.Documents.Add(Template:="H:\Storage\My Documents\7 - Training\Forums\ExWd.doc")
Set MyColumnA = Sheets("MySheet").Range("A1").End(xlDown).Select
Set MyColumnB = Sheets("MySheet").Range("B1").End(xlDown).Select
Set MyColumnC = Sheets("MySheet").Range("C1").End(xlDown).Select
Set MyColumnD = Sheets("MySheet").Range("D1").End(xlDown).Select
With myDoc.Bookmarks
     .Item("bmMyColumnA").Range.InsertAfter MyColumnA
     .Item("bmMyColumnB").Range.InsertAfter MyColumnB
     .Item("bmMyColumnC").Range.InsertAfter MyColumnC
     .Item("bmMyColumnD").Range.InsertAfter MyColumnD
End With
errorHandler:
Set wdApp = Nothing
Set myDoc = Nothing
Set mywdRange = Nothing
End Sub
To explain what the code is (SUPPOSED) to do:

Find the data at the end of columns A,B,C & D and place it into a word document created from a template "ExWd.dot" where I have placed my bookmarks.

Can Anyone tell me why it is erroring here? I have declared the variable at the start of the code!!??!