Как я могу изменить каталог в этом коде VBA? VBA " Excel в TXT или CSV"

Спасибо за вдохновение.

Я просто прошел мимо другого кода, который сделал его более легким. Потому что я просто хотел добавить файл в каталог, где я работаю, но хотел сделать VBA динамическим.

так что я использовал ActiveWorkbook.FullName вместо ActiveWorkbook.Name. Я также добавил имя из листа к нему в " - " & ActiveSheet.Name &

это окончательный код (также добавлено имя листа):

Public Sub Worksheet_naar_TXT_Pipe_delimiter()
    Const DELIMITER As String = "|"
    Dim myRecord As Range
    Dim myField As Range
    Dim nFileNum As Long
    Dim sOut As String

    nFileNum = FreeFile
    Open ActiveWorkbook.FullName & " - " & ActiveSheet.Name & ".txt" For Output As #nFileNum
    For Each myRecord In Range("A1:A" & _
                Range("A" & Rows.Count).End(xlUp).Row)
        With myRecord
            For Each myField In Range(.Cells, _
                    Cells(.Row, Columns.Count).End(xlToLeft))
                sOut = sOut & DELIMITER & myField.Text
            Next myField
            Print #nFileNum, Mid(sOut, 2)
            sOut = Empty
        End With
    Next myRecord
    Close #nFileNum
End Sub

Спасибо за ваш ответ, это привело меня к идее!