エクセル（複数インスタンス）より任意のWorkBookを取得したい

ＶＢ初心者です。非常に困っていますのでどうぞ宜しく御願いいたします。 起動中のエクセルをVB6.0からコントロールしたいと思い、以下のコードを書いたのですが、エクセルが複数インスタンスで起動している場合、意図するワークブックが取得できないことに気が付きました。（一番初めに起動したインスタンスのエクセルしか取得できませんでした） ■失敗■ Private Sub Command1_Click() Set xlApp = GetObject(, "Excel.Application") xlApp.ActiveWorkbook.Sheets("シート名").Select 'アクティブなWorkBookを取得 Err.Clear On error resume next If Err.Number <> 0 Then MsgBox"エラー" Else msgBox"取得成功" End If Er