Here is the way to extract contents
Sub Extract_Text()
Dim oWB As Workbook
Dim lRow As Long
Set oWB = ActiveWorkbook
Open "c:\Temp.txt" For Append As 1
For Each SHT In oWB.Sheets
lRow = SHT.Cells.SpecialCells(xlCellTypeLastCell).Row
For l = 2 To lRow
Print #1, Trim$(SHT.Cells(l, 2).Value)
Next l
Next SHT
Close #1
oWB.Close False
End Sub
You need to tweak a bit for the range
Cheers
Shasur
http://www.dotnetdud.blogspot.com
VBA Tips & Tricks (
http://www.vbadud.blogspot.com)