Öffnen von Datei per Makro, Berechnung und Schließ

Sub suchenrechnen()
Dim Tool As Range
Tool = ActiveWorkbook.[g1] \Dateiname von Tool steht in zelle G1
If Dir([j12]) <> "" Then
Workbooks.Open Filename:=[j12]\falls vorhanden, wird zweite Datei geöffnet
Windows(Tool).Activate        \Tool wird aktiviert
Calculate                     \Verknüpfungen in Tool werden aktualisiert
Windows([j12]).Activate       \zweite Datei wird aktiviert
ActiveWorkbook.Close          \damit sie als aktive Datei geschlossen wird
Windows(Tool).Activate        \und Tool wird wieder aktiviert
Else
MsgBox "Datei nicht vorhanden!"
End If
End Sub