Hi all

i have following code:
'----------------------------------------------------------
Dim WRDAPP As Word.Application
Dim WRDDOC As Word.Document

Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("C:\Test.doc")

WRDAPP.Visible = true
ActiveSheet.Shapes("chart1").Copy
WRDAPP.Selection.Paste
'----------------------------------------------------------

As soon as following line gets executed: "WRDAPP.Selection.Paste"
excel starts executing:
'----------------------------------------------------------
Private Sub Workbook_Open()
Form_Start.Show
End Sub
'----------------------------------------------------------

Why is this so? Does anyone has a clue?

Cheers Carlo