Public Sub ReadSeqFile() Dim filePath As String Dim I As Integer Dim myHeader As String
I = 1
filePath = ActiveWorkbook.Path & "\MyHeaders.txt"
Open filePath For Input As #1
Do While Not EOF(1)
Input #1, myHeader
Cells(1, I).Value = myHeader
I = I + 1
Loop
Close #1 End Sub