Copying from Clipboard

Sub WordCopyRows(FILE1 as String, ROWS As Integer)
Dim status         As Boolean
Dim objWord        As Word.Application
Dim objDoc         As Word.Document
Dim objDoc_in      As Word.Document

    status = False
    On Error GoTo ErrorHandler

    Set objWord = CreateObject("word.application")
    objWord.Visible = True
    objWord.WindowState = wdWindowStateMaximize
    
    Set objDoc = objWord.Documents.Add(DocumentType:=wdNewBlankDocu  ment)
    
    TXT = objDoc.Application.ActiveDocument.Name
    Set objDoc_in = objWord.Documents.Open(FILE1)

    objWord.Selection.MoveStart
    objWord.Selection.MoveDown Unit:=wdLine, Count:=ROWS, Extend:=wdExtend
    Selection.Copy
    objWord.Windows(TXT).Activate
    Selection.Paste
    
    GoTo NormalExit


ErrorHandler:
    MsgBox "The following error occured " & vbCrLf & Err.Description

NormalExit:
    objDoc_in.Close savechanges:=wdNoSaveChanges

    Set objWord = Nothing
    Set objDoc = Nothing
    Set objDoc_in = Nothing
    
End Sub