here is macro copy paste in new workbook save as txt
<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000; background-color: #ffffff}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #008f00; background-color: #ffffff}p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; background-color: #ffffff; min-height: 13.0px}p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #ff2600; background-color: #ffffff}p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #011993; background-color: #ffffff}span.s1 {color: #011993}span.s2 {color: #000000}</style>Sub Macro5()
'
' Macro5 Macro
'
'
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
"/Users/TAV/Desktop/superpowers//"
"/Users/TAV/Desktop/superpowers//"
ActiveWorkbook.SaveAs Filename := _
"/Users/TAV/Desktop/superpowers/superpowers - .txt", FileFormat := ?, _
CreateBackup := FALSE
End Sub