Dim Doc As Document Set Doc = Documents.Open(FileName:=txt_FileName.Text) With Doc .Range.Copy sActiveDoc.Paste End With