Sub datamake()


yourFolder = "C:\Documents and Settings\yourfolder\"
yourXlsFile = "filename.xls"


Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(yourFolder & yourXlsFile)



For i = 1 To xlBook.Worksheets.Count

	Set xlSheet = xlBook.Worksheets(i)
	
	Sheets(xlSheet.Name).Select
	
	ChDir "C:\Documents and Settings\yourfolder\"
	
	ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\your folder\" & xlSheet.Name & ".txt" _
        , FileFormat:=xlText, CreateBackup:=False
    
    
Next


End Sub