Wert in sichtbare Blätter kopieren

ich öfnne mit HIlfe eines Makros aus einer Datei heraus mehrere andere dateien und drucke in diesen die eingeblendeten Blätter aus, mit hilfe dieses Makros.

Sub PrintVisibles()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Visible = True Then
wks.PrintOut Copies:=1
End If
Next wks
End Sub

Das klappt auch super.

Doch nun möchte ich in jedem dieser Blätter in Zelle A2 den Wert meiner Ursprungsdatei Zelle B7 einfügen.

Wie mache ich das???

Vorab schon einmal danke für Eure Hilfe
Markus