|I thought perhaps it came to a blank cell and it stopped there but that is not the case.|
That's not what your code says:
If strValue = "" Then Exit Do
But whatever! I have nothing better to do, so here's how I might solve the problem. It's far from perfect (I hate relying on the clipboard), but it gets the job done.
Set book = GetObject("C:\Scripts\Notebook_Info.xls")
.Application.Visible = True
.Application.DisplayAlerts = False
Set sheet = .Worksheets(3)
Set tempSheet = .Worksheets(1)
.Application.Intersect(.Range("I:I"), .Range(.Cells(1), .Cells.SpecialCells(11))).Copy
On Error Resume Next
.Cells(1).PasteSpecial , , True, True
On Error GoTo 0
.SaveAs "C:\Scripts\ExcelData.txt", 6, , , , , False
End WithIf you have questions, you know where to find me.