Hi Joe,

Try something like:

Sub B()
Dim FNum As Integer
Dim sLine As String

FNum = FreeFile

Open "c:\temp\test.txt" For Input Access Read As #FNum

Input #FNum, sLine
Sheets("Sheet2").Range("A1") = sLine
Close #FNum
End Sub

HTH

Peter Beach

"Joseph " wrote in message
...
Hey People,

Anyone know how to get the first line of data in a textfile and dump it
to a cell in Excel?

cheers
Joe


---
Message posted from http://www.ExcelForum.com/