Hello ramanan256,
Here is corrected macro. It has been added to the attached workbook.
Sub ConvertData()
Dim C As Long
Dim FileName As String
Dim FilePath As String
Dim FSO As Object
Dim Header As String
Dim R As Long
Dim Rng As Range
Dim RngEnd As Range
Dim TextFile As Object
Dim Wks As Worksheet
FileName = "VC Data.txt"
FilePath = ThisWorkbook.Path
Set Wks = Worksheets("Sheet1")
Set Rng = Wks.Range("A2:E2")
Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp)
Set Rng = IIf(RngEnd.Row < Rng.Row, Rng, Wks.Range(Rng, RngEnd))
Set FSO = CreateObject("Scripting.FileSystemObject")
FileName = FilePath & "\" & FileName
Set TextFile = FSO.OpenTextFile(FileName, 2, True, -2)
For R = 1 To Rng.Rows.Count
Header = "(" & Rng.Item(R, 1) & "," & Rng.Item(R, 2) & ","
For C = 3 To 5
TextFile.Write Header & C - 2 & ")[" & Rng.Item(R, C) & "]" & vbCrLf
Next C
Next R
TextFile.Close
Set FSO = Nothing
Set TextFile = Nothing
End Sub
Bookmarks