Makro som åbner alle ark i en bestemt mappe og skal ændre en celle værdi i dem pba en værdi fra hovedarket

Jeg skal have modificeret en makro.
Det eneste der mangler er en kode som finder en værdi i hovedarket i celle A1. Denne værdi skal indsættes i celle A1, i alle de ark som bliver åbnet.

Foreløbig kode:

Sub Hent_Data()

Dim strF As String, strP As String
Dim wb As Workbook
Dim ws As Worksheet


Application.ScreenUpdating = False

'Mappe Stien
strP = ThisWorkbook.Path & "\Opfølgningsark"


strF = Dir(strP & "\*.xlsm") 'Sammensætter mappestien og ark som skal åbnes'


Do While strF <> vbNullString
   
    On Error GoTo Førslut
   
        Set wb = Workbooks.Open(strP & "\" & strF) 'Åbner ark ud fra den sammensatte sti'
        Set ws = wb.Sheets(1)
        wb.Close True
   
    strF = Dir()
Loop

Førslut: 'Ingentings-handling'
Application.ScreenUpdating = True

End Sub