So I use this code in my whitchboard?
rivate Sub Option3_Click()
'Function MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("D:\archive\DUMMY_1040MFS.doc", "Word.Document")
' Make Word visible.
objWord.Application.Visible = True
' Set the mail merge data source as CorrBatch4Pasted.
objWord.MailMerge.OpenDataSource _
Name:="D:\archive " & _
"National Archive.mdb", _
LinkToSource:=True, _
Connection:="TABLE CorrBatch4Pasted", _
SQLStatement:="SELECT * FROM [Forms]![Batch 4 stat query]![Combo2]"
' Execute the mail merge.
objWord.MailMerge.Execute
'End Function
End Sub
This is the code I have been trying to use. But when I have my switchboard open at startup my references are lost.