I wish you had answered my question about the size of the file... the answer
might affect the code I would give you. Here I am assuming your file is
around 10 to 15 Megs maximum (the code will still work, but might start
becoming inefficient if the file gets much larger than this limit). Change
my worksheet reference in the Set statement, the filename in the Open
statement and the starting row to put data in in the RowNum assignment
(immediately before the For statement) to match your own situation.

Sub LoadFile()
Dim X As Long
Dim RowNum As Long
Dim FileNum As Long
Dim WS As Worksheet
Dim TotalFile As String
Dim Records() As String
Set WS = Worksheets("Sheet4")
FileNum = FreeFile
Open "c:\temp\test\datafile.txt" For Binary As #FileNum
TotalFile = Space(LOF(FileNum))
Get #FileNum, , TotalFile
Close #FileNum
Records = Split(TotalFile, vbCrLf)
RowNum = 2
For X = 0 To UBound(Records)
WS.Cells(1 + Int(X / 3), 1 + X Mod 3).Value = Records(X)
Next
End Sub

Rick


"aquaflow" wrote in message
...
On May 16, 2:18 pm, "Rick Rothstein \(MVP - VB\)"
wrote:
Is that actual data you showed us? If so, I find it confusing as to what
you
want. Do you want the word "Name" without the trailing equal sign in
Column
A? Are we to skip over the *"dev"/"null" part? The other equal signs are
on
lines by themselves? Anything you can give us to clarify the **actual**
data
in the text file would be useful. Also, what is the approximate size of
the
largest text file you would ever expect to process (in Kilobytes or
Megabytes)?

Rick

"aquaflow" wrote in message

...

contents of the text file
Name =
*"dev"/"null"
CodeVersion
=
ReleaseID
=

need to make col1 Name col2 CodeVersion col3 Releaseid using macro

Need some help

Name=Microsoft Excel
Codeversion=WIndows 2003
Releaseid=22