please help ??!!!

[BERGAN]

please help
i have excel file i want to convert it to text files with a specific spaces between columns
thanx

 

[mole999]

save as PDF ?

 

[BERGAN]

i need it text file

 

[Logit]

.

Sub sveAsTxtFile()
 With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = ThisWorkbook.Path & "\" & ActiveSheet.Name
        .FilterIndex = 7        'Text file
        If .Show Then .Execute
    End With
End Sub