Hi BrynBaker,

See the methodology on the use of the sFile, and managed to test your code.
Using Excel 2007
Line 13, Col 1
ActiveWorkbook.SaveAs sFile, xlCSV ' save new file
This generated an error "Run-time error '1004': Application-defined or object-defined error

In ExcelForum post - "Code to Export Excel Data to Text File" shows similar process which doesn't use a new spreadsheet to create the file. It uses a CreateObject method. But, that macro does more than one column of data for every row written to the text file.

I think a modification of Leith Ross' macro will work best if it can be modified to only do one column and add the hardcoded description text to each IP on each line. Might have to combine a little of yours with this along with the change to export one column instead of a bunch of them.

Sub CreateTextFile()

Const ForAppending As Long = 8
Const DefaultFormat As Long = -2
Const UnicodeFormat As Long = -1
Const AsciiFormat As Long = 0

Dim C As Long, R As Long
Dim FileName As String
Dim Filepath As String
Dim fso As Object
Dim LastCol As Long
Dim LastRow As Long
Dim Rng As Range
Dim StartCol As Long
Dim StartRow As Long
Dim TxtData As String
Dim TxtFile As Object
Dim Wks As Worksheet

StartRow = 1
StartCol = 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set TxtFile = fso.OpenTextFile("c:\TestFile.txt", ForAppending, DefaultFormat)

For Each Wks In ThisWorkbook.Worksheets
C = StartCol
LastCol = Wks.Cells(StartRow, Columns.Count).End(xlToLeft).Column
LastRow = Wks.Cells(Rows.Count, StartCol).End(xlUp).Row
For R = StartRow To LastRow
Set Rng = Wks.Range(Cells(StartRow, C), Cells(LastRow, C))
If WorksheetFunction.CountIf(Rng, "<>*") <> 0 Then
For C = StartCol To LastCol
TxtData = TxtData & Wks.Cells(R, C).Value & vbTab
Next C
TxtFile.WriteLine (TxtData)
TxtData = ""
End If
Next R
Next Wks

TxtFile.Close
Set fso = Nothing
Set TxtFile = Nothing

End Sub

P.S. How do you put the code into the reply where it is isolated into a text field.

Thanks,
Ruezo