erstes Blatt einer Datei aktivieren

an Hand folgenden Makros öffne ich eine Datei, deren Name in einer Zelle steht. Nun möchte ich in das erste Blatt dieser Datei einen Wert schreiben lassen. Doch mit dem unten stehenden Makro wird ein Wert in die Zelle der Datei geschrieben, in der das Amkro enthalten ist und nicht in die, die ich geöffnet habe. Wie muß ich den Code umstellen, damit in die gerade geöffnete Datei ein Wert eingetragen wird?

Danke
Markus