[color="blue"]Sub[/color] SaveAsText()

        Application.DisplayAlerts = [color="blue"]False[/color]

        Application.ScreenUpdating = [color="blue"]False[/color]

    [color="blue"]Dim[/color] fd [color="blue"]As[/color] FileDialog

    [color="blue"]Dim[/color] strFile [color="blue"]As[/color] [color="blue"]String[/color]

    [color="blue"]Dim[/color] lngCalc [color="blue"]As[/color] [color="blue"]Long[/color]

    [color="blue"]Dim[/color] wbCurrent

        lngCalc = Application.Calculation

        Application.Calculation = xlCalculationManual

        [color="blue"]Set[/color] fd = Application.FileDialog(msoFileDialogFolderPicker)

            [color="blue"]With[/color] fd

                [color="blue"]If[/color] .Show = -1 [color="blue"]Then[/color]

                    strDir = .SelectedItems(1)

                    Else: [color="blue"]GoTo[/color] res_exit

                [color="blue"]End[/color] [color="blue"]If[/color]

            [color="blue"]End[/color] [color="blue"]With[/color]

    

        strFileName = Dir(strDir & "\", vbNormal)

    

        [color="blue"]Do[/color] [color="blue"]While[/color] [color="blue"]CBool[/color](Len(strFileName))

            [color="blue"]If[/color] Right(strFileName, 4) = ".xls" [color="blue"]Then[/color]

                [color="blue"]Set[/color] wbCurrent = Workbooks.Open(strDir & "\" & strFileName)

                wbCurrent.SaveAs Filename:= _

                strDir & Left(wbCurrent.Name, Len(wbCurrent.Name) - 3) & "txt", FileFormat:=xlText

                wbCurrent.Close

            [color="blue"]End[/color] [color="blue"]If[/color]

            strFileName = Dir

        [color="blue"]Loop[/color]

res_exit:

        Application.Calculation = lngCalc

        Application.ScreenUpdating = [color="blue"]True[/color]

        Application.DisplayAlerts = [color="blue"]True[/color]

        [color="blue"]Set[/color] fd = [color="blue"]Nothing[/color]

        [color="blue"]Set[/color] wb = [color="blue"]Nothing[/color]

    [color="blue"]Exit[/color] [color="blue"]Sub[/color]

err_hand:

        MsgBox Err.Number & " " & Err.Description, vbCritical, "Error"

        [color="blue"]GoTo[/color] res_exit

[color="blue"]End[/color] [color="blue"]Sub[/color]