Office: Powerpoint - Makro soll 3 Exceldateien öffen - öffnet aber nur eine !

Hallo,
ich möchte eine Makro in Powerpoint erstellen, in der verschiedene Exceldateien geöffnet werden sollen.


Bisher habe ich:

Sub Werte_aktualisieren()

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Application")

ExcelSheet.Application.Visible = True
ExcelSheet.Application.Workbooks.Open FileName:="C:zu öffnede_Datei1.xls"
ExcelSheet.Application.Sheets("Sheet1").Select



End Sub


1. Hier wird natürlich nur eine Excel geöffnet, wie bekomme ich es hin, dass noch zwei weitere (paralel) geöffnet werden?
2. Ist es möglich, dass "am Stück" zu schreiben, damit ich nur eine Schaltfläche habe?



Grüße und danke,
Sven