Option Explicit

Sub SaveSheetToTxt()
'UpdatebyBaiano42
    Dim xRet As Long
    Dim xFileName As Variant
    Dim wbText As Workbook
    On Error GoTo ErrHandler:
    ChDir ThisWorkbook.Path                
    xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "Text (Tab Delimited) (*.txt), *.txt", , "Kutools for Excel")
    If xFileName = False Then Exit Sub
    If Dir(xFileName) <> "" Then
        xRet = MsgBox("File '" & xFileName & "' exists. Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
        If xRet <> vbYes Then
            Exit Sub
        Else
            Application.DisplayAlerts = False
            Kill xFileName
            Application.DisplayAlerts = True
        End If
    End If
    ActiveSheet.Copy
    Set wbText = ActiveWorkbook
    wbText.SaveAs xFileName, xlUnicodeText
    wbText.Close False
My_Exit:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
End Sub