Hi there,
I hope that you can help me out here.
I have this vba (see under) that allmost gives me what i want.
But i want whats in each cells in column B to be in sepreate files.
Right now i get every cells in B in every files.
[VBA]Private Sub CommandButton1_Clickl()
Dim wksht As Worksheet
Set wksht = ActiveSheet
Dim path As String
path = "C:\test\"
If Len(Dir(path, vbDirectory)) = 0 Then
MkDir path
End If
Dim arr() As Variant
arr = wksht.Range("b1:b1000").Value
Dim wb As Workbook
Dim i As Long
For i = 1 To ActiveSheet.Range("A1").End(xlDown).Row
Set wb = Application.Workbooks.Add
wb.Sheets(1).Range("A1", Cells(UBound(arr), UBound(arr, 2))).Value = arr
wb.SaveAs Filename:=path & wksht.Range("A" & i).Value & ".txt", FileFormat:=xlText
wb.Close
Next i
End Sub[/VBA]
Here is what i got as start.
[ATTACH=JSON]{"alt":"Click image for larger version Name:\tmacro.png Views:\t0 Size:\t3.2 KB ID:\t1225142","data-align":"none","data-attachmentid":"1225142","data-size":"full","title":"macro.png"}[/ATTACH]