Sub Zapisz_Kopie_do_Txt()
  Dim WbFile As String
  Dim txtPath As String
  Dim wb As Workbook

  'akrkusz, który zostanie zapisany
  Worksheets("Arkusz1").Select

  With ThisWorkbook
    'pełna scieżka do oktualnego skoroszytu
    WbFile = .FullName
    
    'sieżka do pliku tekstowego
    txtPath = Replace(WbFile, ".xls", ".txt")

    'zapisanie zmian w skoroszycie
    .Save

    'wyłączenie komunikatów aplikacji
    Application.DisplayAlerts = False
    
    'zapisanie kopii do pliku tekstowego
    .SaveAs Filename:=txtPath, _
            FileFormat:=xlText, _
            CreateBackup:=False

    'aktualnym skoroszytem jest teraz plik tekstowy
    Set wb = ThisWorkbook

    'ponowne otwarcie skoroszytu (pliku XLS)
    Workbooks.Open WbFile

    'zamknięcie pliku tekstowego
    wb.Close
    Application.DisplayAlerts = True

  End With
  
End Sub