Нужно перевести номера телефонов из экселя (несколько листов внутри файла) в блокнот - VBA

Формулировка задачи:

Доброго времени суток! Обращаюсь к гуру макросов, т. к. для меня задача оказалось очень сложной! Нужно перевести номера телефонов из экселя (несколько листов внутри файла) в блокнот. Каждый лист в отдельный файл блокнота. https://cloud.mail.ru/public/6SAb/9xaCSjeiT вот тут он находится Спасибо!!!

Решение задачи: «Нужно перевести номера телефонов из экселя (несколько листов внутри файла) в блокнот»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub copyTXT()
  Dim Sh As Worksheet, Path$, FSO As Object
    Path = ActiveWorkbook.Path + "\" ' папка активной книги или свой путь для сохранения
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each Sh In Sheets
        With FSO.CreateTextFile(Path & Sh.Name & ".txt", True)
            .Write Join(WorksheetFunction.Transpose(Sh.Range(Sh.[a2], Sh.Cells(Rows.Count, 1).End(xlUp)).Value), vbNewLine)
            .Close
        End With
    Next
    Set FSO = Nothing
End Sub