Dim rng as Range, rng1 as Range
set rng = Activesheet.Cells(7,2)
workbooks.Open Filename:=thisWorkbook.Path & "\text1.txt"
With Activesheet
set rng1 = .Range(.Cells(1,1),.Cells(rows.count,1).End(xlup))
End With
rng1.copy Destination:=rng
activeworkbook.close savechanges:=False

--
Regards,
Tom Ogilvy

"mluetkem" wrote in message
...

Looking for a fast easy way to efficiently read a text file into a Excel
worksheet. The text file is a single column of real numbers. Size of
the text file can be 20,000+ lines long. I want to read in the text
file and place into column B starting at row 7. The text file and
Excel workbook are in the same directory. The size (length) of text
file will vary from run to run, but usually around 20,000 lines in
length.

Mike


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/