Zellwert in geschlossener Datei ändern

Sub BlattInGeschlosseneMappeKopieren()
    
    Application.ScreenUpdating = False
    Set GeschlosseneMappe = Workbooks.Open("F:\Promo\Provisionsauskunft_Promo.xltm")
    Select.Sheet("Vorlauf")
    Dim rngZelle As Range
    Dim strVKProvAsk As String
    Dim strVKProvCal As String
    strVKProvAsk=Range($A$1)
    strVKProvCal=ThisWorkbook.Sheet("Vorlage").Range($D$2).Value
    For Each rngZelle in Selection
    rngZelle.Value=REPLACE(rngZelle.Value,strVKProvAsk,strVKProvCal)
    
    Sheets.Add Before:=GeschlosseneMappe.Sheets("Stammdaten")
    
    ThisWorkbook.Sheets("Vorlage").Range("A4:W1000").Copy ActiveSheet.Cells(1, 1)
    
    'Spalten Automatisch anpassen
    Dim x As Integer
    For x = 1 To ActiveSheet.UsedRange.Columns.Count
     Columns(x).EntireColumn.AutoFit
    Next x
    
    'Verwendete Zellen nur Werte
    ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
    
    'Zellen zum erstellen von Sheet namen
    ActiveSheet.Name = ThisWorkbook.Sheets("Vorlage").Range("D2").Value & ThisWorkbook.Sheets("Vorlage").Range("E2").Value
    
    'Sheet schließen ohne rückfrage
    GeschlosseneMappe.Close SaveChanges:=True
    Application.ScreenUpdating = True
    MsgBox "Die Datei wurde in Ordner F:\Promo\ProvAuskunft gespeichert.", 64, "Kopieren beendet"
End Sub