The following code fails to locate the filename path specified
returning "file not found" error. There is surely a file named
"tester'" in C:\ Mydocuments folder. What gives? TIA


Sub Import_TextFiles1()
Dim RwIndx As Integer
Dim ColIndx As Integer
Dim WholeLine As String
Dim Fname As String

Application.ScreenUpdating = False
ColIndx = ActiveCell.Column
RwIndx = ActiveCell.Row
Fname = "C:\My Documents\tester.doc"
Open Fname For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
Cells(RwIndx, ColIndx).Value = WholeLine
RwIndx = RwIndx + 1
Wend
Close #1
Application.ScreenUpdating = True


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=387955