Sub SaveAsTextFile()
    
    Dim filenames As Variant
   
   ' set the array to a variable and the True is for multi-select
   filenames = Application.GetOpenFilename(, , , , True)

      counter = 1

      ' ubound determines how many items in the array
      While counter <= UBound(filenames)

         'Opens the selected files
         Workbooks.Open filenames(counter)

Dim strDocName As String
Dim intPos As Integer

'Find position of extension in file name
strDocName = ActiveWorkbook.Name
intPos = InStrRev(strDocName, ".")

'Strip off extension and add ".txt" extension
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".txt"

'Save file with new extension
ActiveWorkbook.saveas Filename:= _
strDocName, FileFormat:= _
xlText, CreateBackup:=False


ActiveWorkbook.Close


'increment counter
         counter = counter + 1

      Wend

End Sub

'Save file with new extension

Application.DisplayAlerts = False

ActiveWorkbook.saveas Filename:= _
strDocName, FileFormat:= _
xlText, CreateBackup:=False

Application.DisplayAlerts = True