Sub SaveAsText()
	Dim r As Range, c As Range
	Dim sTemp As String
	Dim FName As Variant

	'prompt for file name
	FName = Application.GetSaveAsFilename("", "Text File (*.txt), *.txt")
	If FName = False Then Exit Sub

	Open FName For Output As #1

	'select all cells
	Range("A1").Select
	Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

	'output selected cells in simple text format
	For Each r In Selection.Rows
		sTemp = ""
		
		For Each c In r.Cells
			sTemp = sTemp & c.Text & Chr(9)
		Next c

		'get rid of trailing tabs
		While Right(sTemp, 1) = Chr(9)
			sTemp = Left(sTemp, Len(sTemp) - 1)
		Wend

		Print #1, sTemp
	Next r

	Close #1
End Sub