VBA - Åbn ark i modificeret mappesti

Nuværende kode, med sti til ændring:

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.Patch & "\Underark"


strF = Dir(strP & "\*.xlsm")

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

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

End Sub

Den virker faktisk hvis man kan stave...
*strP = ThisWorkbook.Path***