Save Each Sheet As A Text File With Incrementing Names

Want to do something *almost* exactly like a previous post but that post is now closed. Extract Each Sheet To Text File & Save as Sheet Name .txt` I want to extract data from individual worksheets from a workbook in excel to individual text files with the **same name as the original excel file** plus incrementing suffix.

Example: File_Name.xls with worksheets: Sheet1, Sheet2, Sheet3
==> Result...... File_Name_01.txt, File_Name_02.txt, File_Name_03.txt

don't delete - this is not a duplicate post. Previous code 1) creates text files with "sheet name" as was the original post's intent (not "file name") and 2) it does not iterate through each sheet (only processes Sheet1 regardless of selected sheet in the workbook)

Sub wsToText()......................