Kald af et excel program fra et andet excel program

Eksempel:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim prg2 As Workbook, overFørsel
Dim stAppName As String
    stAppName = "Program2.xlsx"
    overFørsel = Range("A1")
   
    Set prg2 = Workbooks.Open(ActiveWorkbook.Path & "\" & stAppName)
   
    With prg2
        .Sheets(1).Range("A1").Value = overFørsel
        .Application.DisplayAlerts = False
        .Save
        .Close
    End With
End Sub

Det virker. Tak for hjælpen

Vil du lave det så jeg kan give point
Hvis du har tid har jeg et spørgsmål mere som oprette på ny

Selv tak - du får et svar..