Error msg: File is already opened

[Dreamer]

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