Probeer het eens met deze
Sub jvr2()
c00 = "C:\Users\xx\xx\xx\"
arr = Array("gsk", "gsv", "gsm", "gsd", "gsp")
arr2 = Array("gem", "dat", "kind", "vader", "moeder", "peter", "meter")
With CreateObject("scripting.filesystemobject")
For i = 2 To 6
Set sht = Sheets(i)
For j = 1 To 7
.createtextfile(c00 & arr(jj) & "_" & arr2(j - 1) & ".txt").write Join(Application.Transpose(sht.Range(sht.Cells(1, j), sht.Cells(Rows.Count, j).End(xlUp))), vbLf)
Next
jj = jj + 1
Next
End With
End Sub