' START CODE
''''''''''''''''''''''''''''''''''''
Dim ThisInstance As Excel.Application
Dim XLInstance2 As Excel.Application
Sub Test()
Set ThisInstance = Application
If XLInstance2 Is Nothing Then
Set XLInstance2 = New Excel.Application
End If
With XLInstance2
.Visible = True
.Workbooks.Open Filename:="C:\Test\Book1.xlsm"
End With
ThisInstance.Workbooks("Book1.xlsm").Worksheets("Sheet1").Range("A1").Value = _
XLInstance2 .Application.ActiveWorkbook.Sheets("Sheet1").Cells(1, 1).Value
End Sub
''''''''''''''''''''''''''''''''''''
' END CODE
''''''''''''''''''''''''''''''''''''
Bookmarks