Hi all, Could anyone help me to figure out what's the problem?
With Activesheet sPath = "C:\" For I = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row sText = .Range("D" & I) itext = FreeFile sOutput = sPath & Trim(.Name) & ".Txt" On Error Resume Next Kill sOutput On Error GoTo 0 Open sOutput For Output As #iText <--- It pops up a message telling me that the file is already opened. Print #iText, sText Next I End With Close #iText Application.ScreenUpdating = True End Sub