I have used the following code, which I found here. I am sorry I do not remember who the originator was, but the code works great except that I am having problems getting it to write to another worksheet

I need this macro to work in the background and copy the data from a text file to the worksheet "Names". The worksheet "Names" is hidden

I tried the following but it does not work. It will only copy the data onto the active worksheet

Public Sub ImportTextFile(FName As String, Sep As String

Dim RowNdx As Intege
Dim ColNdx As Intege
Dim TempVal As Varian
Dim WholeLine As Strin
Dim Pos As Intege
Dim NextPos As Intege
Dim SaveColNdx As Intege

Application.ScreenUpdating = Fals
'On Error GoTo EndMacro

SaveColNdx = Worksheets("Names").Range("A1").Colum
'SaveColNdx = ActiveCell.Column '<<< Original Cod
RowNdx = Worksheets("Names").Range("A1").Ro
'RowNdx = ActiveCell.Row '<<< Original Cod

Open FName For Input Access Read As #

While Not EOF(1
Line Input #1, WholeLin
If Right(WholeLine, 1) < Sep The
WholeLine = WholeLine & Se
End I
ColNdx = SaveColNd
Pos =
NextPos = InStr(Pos, WholeLine, Sep
While NextPos =
TempVal = Mid(WholeLine, Pos, NextPos - Pos
Cells(RowNdx, ColNdx).Value = TempVa
Pos = NextPos +
ColNdx = ColNdx +
NextPos = InStr(Pos, WholeLine, Sep
Wen
RowNdx = RowNdx +
Wen

EndMacro
On Error GoTo
Application.ScreenUpdating = Tru
Close #

End Su

Any help will be very welcome. Thanks.