Dateiname und Speicherort definieren

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strDatei As String, strText As String
Dim intFile As Integer, rng As Range
Const strDELIM As String = "|"
intFile = FreeFile
With ThisWorkbook
strDatei = .Path & "\SearchLog" & Replace(.Name, ".xlsm", "") & ".xls"
End With
Open strDatei For Append As #intFile
If LOF(intFile) = 0 Then
strText = "Search Terms:"
Print #intFile, strText
End If
If Range("G7")  mstrOld Then
strText = _
Range("G7")
Print #intFile, strText
End If
Close #intFile
End Sub