File Access Modes with VBA
Access Mode Writing Data Reading Data
Sequential/Append Print#, Write# Input#, Input
Random Put Get
Binary Put, Write# Get, Input#, Input
Public Sub CreateSeqFile()
Dim filePath As String
Dim I As Integer
filePath = ActiveWorkbook.Path & "\MyHeaders.txt"
Open filePath For Output As #1
For I = 1 To 5
Write #1, Cells(1, I).Value
Next I
Close #1
End Sub