Ошибка выполнения Excel VBA «70»: в разрешении отказано

Вот сценарий модуля VBA:

Sub ExportToTXT()
Dim wsData As Variant
Dim myFileName As String
Dim FN As Integer
Dim p As Integer, q As Integer
Dim path As String
Dim myString As String
Dim lastrow As Long, lastcolumn As Long

lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
lastcolumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
path = "C:\Users\MiniMe\Desktop\GE2\"

For p = 7 To lastcolumn
  wsData = ActiveSheet.Cells(8, p).Value
  'If wsData = "" Then Exit Sub
  myFileName = ActiveSheet.Cells(1, p).Value
  myFileName = myFileName & ".txt"
  myFileName = path & myFileName
  'MsgBox myFileName
  For q = 7 To lastrow
    myString = myString & " " & Cells(q, p)

    FN = FreeFile
    Open myFileName For Output As #FN
        Print #FN, myString
    Close #FN
  Next q
  myString = ""
Next p

End Sub

Я использую модуль VBA для экспорта столбцов Excel в файлы TXT, но получаю ошибку выполнения 70 (Permission Denied). Если я запускаю сценарий снова и снова, это приводит к появлению еще нескольких файлов или символов TXT в каждом файле TXT, но в конечном итоге все равно будет та же ошибка. Отладка показывает, что ошибка возникает на Open myFileName For Output As #FN. Поскольку файл Excel содержит огромные объемы данных, мне интересно, пытается ли сценарий VBA перейти к выводу следующего файла TXT в цикле, не завершив вывод текущего файла TXT. Это всего лишь предположение, поскольку я новичок в VBA и довольно некомпетентен.

Я пытался решить проблему самостоятельно, но не могу преодолеть это препятствие. Есть предположения? Заранее БОЛЬШОЕ СПАСИБО! Это действительно хорошее дело.