Sub txt_write()
Dim i#, ii#, s$, n&, m As Variant, Filename$
m = Selection.Value

Filename$ = InputBox("Полное имя файла", "Имя для сохранения", ActiveWorkbook.Path & "\file.csv")

n = FreeFile()
     Open Filename For Output As #n
        For i = 1 To UBound(m)
        s = m(i, 1)
            For ii = 2 To UBound(m, 2)
                s = s & vbTab & m(i, ii)
            Next
            s = s & ";"
            Print #n, s '
                        If i Mod 10000 = 0 Then
                        DoEvents                             ' передача управления другим процессам
                        Application.StatusBar = Format(i / UBound(m), "0%") & ". " & i & " из " & UBound(m)
                        End If
        Next
Close #n
Application.StatusBar = False
End Sub