If everything is being done in Word to start with then why in the world are you creating and instance of Word and creating all the variant variables
Private Sub CommandButton1_Click() Dim oDoc As Document Dim oTbl As Table Set oDoc = Documents.Add '("C:\Users\Username\Desktop\Template 1.dotx") Set oTbl = oDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior) oTbl.Cell(1).Range.Text = Me.TextBox1.Text lbl_Exit: Exit Sub End Sub