So I have tried numerous things but I keep getting the same debug issue "Run time Error 424, object needed" I would really appreciate any help with this. Here is the latest on what I have.

Sub Print_Tags()
'
' Macro1 Macro
'
'
Set wordapp = CreateObject("word.Application")

wordapp.documents.Open "C:\Users\J.Templet\Desktop\LOTO Print Tags\PRINTING TAGS.dotx"

wordapp.Visible = True
docwd.MailMerge.OpenDataSource Name:= _
"C:\Users\J.Templet\Desktop\LOTO Print Tags\Isolation LOTO Template.xlsx" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\J.Templet\Desktop\LOTO Print Tags\Isolation LOTO Template.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Ty" _
, SQLStatement:="SELECT * FROM `Tag_List`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
docwd.MailMerge.Fields.Add Range:=Selection.Range, Name:="Tag_"
docwd.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Equip_No"
docwd.MailMerge.Fields.Add Range:=Selection.Range, Name:="Name"
docwd.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Date_of_Isolation"
docwd.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Lock__Tag_No"
docwd.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Isolation_Type"
docwd.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Isolation_Location"
WordBasic.MailMergePropagateLabel
With docwd.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub


This is the part that is highlighted yellow when I open the debug VBA:

docwd.MailMerge.OpenDataSource Name:= _
"C:\Users\J.Templet\Desktop\LOTO Print Tags\Isolation LOTO Template.xlsx" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\J.Templet\Desktop\LOTO Print Tags\Isolation LOTO Template.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Ty" _
, SQLStatement:="SELECT * FROM `Tag_List`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess