title: Save as .CSV and .txt
body: <p>I am sure this is straightforward but is baffling me beyond belief. I have written the below code. You can see in to places that I am saving My pay final and Non-mypay Final as CSV files. Is there a way I can get the files to save as txt files as well. Ideally with the same location if possible? As always, your help is greatly appreciated.</p>
  
  <pre><code> Option Explicit
  
   Sub BACSConversion()
  
   Dim MyNewBook As String
   Dim MySaveFile As String
   Dim fileToOpen As Variant
   Dim fileName As String
   Dim sheetName As String
   Dim rCopy As Range
  
   'Turn off display alerts
   Application.DisplayAlerts = False
   'Turn off screen updates
   Application.ScreenUpdating = False
  
   'Ensures that the file open directory is always the same
    ChDir "S:\MERIT OUTPUTS FOLDER\MSI Recruitment Limited\"
  
   'Opens the folder to location to select txt file
    fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
      If fileToOpen &lt;&gt; False Then
      Workbooks.OpenText fileName:=fileToOpen, _
      DataType:=xlDelimited, Tab:=True
      End If
   'Creates the file name based on txt file name
    fileName = Mid(fileToOpen, InStrRev(fileToOpen, "\") + 1)
   'Creates the sheet name based on the active txt file
    sheetName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
  
   'Save active file as...
    ActiveWorkbook.SaveAs ("S:\MERIT OUTPUTS FOLDER\MSI Recruitment 
    Limited\BACS File Original\" &amp; _
    fileName &amp; ".CSV")
  
   'Selects all data in column A and copies to clipboard
    Set rCopy = Range("A1", Range("A1").End(xlDown))
  
   'Open the original document where the BACS file is located
     Workbooks.Open "S:\Accounts (New)\Management Information 
   (Analysis)\Phil Hanmore - Analysis\bacs conversation calc.xlsx"
   'Selects the worksheet called "Original"
    Sheets("Original").Range("A:A").ClearContents
  
   'Paste selected values from previous sheet
    rCopy.Copy
    Sheets("Original").Range("A1").PasteSpecial Paste:=xlPasteValues
  
   'Selects appropriate worksheet - Non-MyPayFINAL
     Sheets("Non-MyPay FINAL").Select
  
    'Selects all data in column A and copies to clipboard
     Range("A1", Range("A1").End(xlDown)).Select
    Selection.Copy
  
    'Add a new workbook
     Workbooks.Add
   'Paste selected values from previous sheet
    Selection.PasteSpecial Paste:=xlPasteValues
  
   'Build SaveAs file name
    MySaveFile = Format(Now(), "DDMMYYYY") &amp; "NonMyPayFINAL" &amp; ".CSV"
   'Save template file as...
    ActiveWorkbook.SaveAs ("S:\MERIT OUTPUTS FOLDER\MSI Recruitment 
    Limited\" &amp; MySaveFile)
   'Close the new saved file
     ActiveWorkbook.Close
  
   'Selects appropriate worksheet - MyPayFINAL
     Sheets("MyPay FINAL").Select
  
   'Selects all data in column A and copies to clipboard
   Range("A1", Range("A1").End(xlDown)).Select
   Selection.Copy
  
   'Add a new workbook
    Workbooks.Add
   'Paste selected values from previous sheet
   Selection.PasteSpecial Paste:=xlPasteValues
  
   'Build SaveAs file name
    MySaveFile = Format(Now(), "DDMMYYYY") &amp; "MyPayFINAL" &amp; ".CSV"
   'Save template file as...
    ActiveWorkbook.SaveAs ("S:\MERIT OUTPUTS FOLDER\MSI Recruitment 
    Limited\" &amp; MySaveFile)
    'Close the new saved file
     ActiveWorkbook.Close
   'Close original source workbook (template)
    Workbooks("bacs conversation calc").Close
  
   'Turn on display alerts
  Application.DisplayAlerts = True
   'Turn on screen updates
  Application.ScreenUpdating = True
  
   End Sub
  </code></pre>