title: Copying & Pasting information from Microsoft Word OLEObject to Excel file via VBA
body: <p>My issue is after I have imported a table from Microsoft Word into Excel by creating an OLEObject, it won't let me copy and paste the table into excel. It continually keeps pasting whatever was last copied on my clipboard into the first cell. Currently my code asks the user for the file name, opens that file as an OLEObject in the active excel sheet, and then pastes the incorrect information into cell A1. It's not copying and pasting what's inside the Word OLEObject.</p>
  
  <pre><code> Sub Macro1()
      Dim FName As String, FD As FileDialog
      Dim ExR As Range
      Set FD = Application.FileDialog(msoFileDialogOpen)
      FD.Show
      If FD.SelectedItems.Count &lt;&gt; 0 Then
          FName = FD.SelectedItems(1)
      Else
          Exit Sub
      End If
  
      ActiveSheet.OLEObjects.Add(fileName:=FName, Link:=False, DisplayAsIcon:=False).Select
      Selection.Verb Verb:=xlPrimary
      Range("A1").Select
      ActiveSheet.Paste
  
  End Sub
  </code></pre>
  
  <p>Thank you!</p>