Sub GetTable4()
'
'
Dim XLSheet As Object
Dim Wbook As String
' Create Sheet object
Wbook = ThisDocument.Path & "\Criteria.xlsm"
Set XLSheet = GetObject(Wbook, "Table 4")
' "Table 4" is a tab name in the excel flie
' Copy data from sheet & paste to document
XLSheet.Range("B3:C5").Copy
Selection.Paste
Selection.TypeParagraph
' Kill the object
Set XLSheet = Nothing
End Sub