Wie kann ich einen Pfad eingeben in dem files

Sub start()
Dim strtext As String
Dim i As Integer
Dim intZeile As Integer
Dim strAktivSheet As String
Dim strWorkbook As String
Dim strThisWorkbook As String
strThisWorkbook = ThisWorkbook.Name
strAktivSheet = ActiveSheet.Name
strWorkbook = ActiveWorkbook.Name
Range("A39:A230").Select
Selection.FormulaArray = "=R[-7]C[1]"
For i = 39 To 230
strtext = ActiveSheet.Cells(i, 1).Value & " - " & ActiveSheet.Cells(i, 4).Value
ActiveSheet.Cells(i, 3).Value = strtext
Next i
Workbooks(strThisWorkbook).Activate
Worksheets("Tabelle1").Cells(1, 1).Select
For i = 1 To 30000
If Worksheets("Tabelle1").Cells(i, 1).Value = "" Then
Exit For
End If
Next i
If i = 0 Then
i = 1
End If
intZeile = i
Windows(strWorkbook).Activate
Worksheets(strAktivSheet).Select
Range("C39:C230").Select
Selection.Copy
Windows(strThisWorkbook).Activate
ActiveSheet.Cells(intZeile, 1).Select
ActiveSheet.Paste
Windows(strWorkbook).Activate
Worksheets(strAktivSheet).Select
Range("G39:G230").Select
Selection.Copy
Windows(strThisWorkbook).Activate
ActiveSheet.Cells(intZeile, 2).Select
ActiveSheet.Paste
Windows(strWorkbook).Activate
Worksheets(strAktivSheet).Select
Range("Q39:Q230").Select
Selection.Copy
Windows(strThisWorkbook).Activate
ActiveSheet.Cells(intZeile, 3).Select
ActiveSheet.Paste
End Sub