This should do it...

Sub bubb()

Dim strLine As String

Close
Open "c:\junk.txt" For Input As #1
Line Input #1, strLine
Range("A1").Value = strLine
Close #1

End Sub




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