can you please help,
I'm using below code,
I need to save the created file as
1- sheet name
2- cell c4 name
Dim fs As Object, a As Object, i As Integer, s As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("C:\Users\Wassim\Desktop\test.txt", True)
i = 2
While Not IsEmpty(Cells(i, 1))
s = s & "'" & Cells(i, 1) & "',"
i = i + 1
Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.