Creare file excel da celle di excel

Option Explicit
Sub CreaTXT()
Dim ur As Long, x As Long, fs As Object, ff As Object, nfile As String, SPath As String
SPath = ThisWorkbook.Path & "\"
ur = Range("A" & Rows.Count).End(xlUp).Row
Set fs = CreateObject("Scripting.FileSystemObject")
    For x = 1 To ur
        nfile = Cells(x, 1) & ".txt"
        Set ff = fs.createtextfile(SPath & nfile, True)
    Next
Set fs = Nothing
Set ff = Nothing
MsgBox "Fatto"
End Sub

...
    If Application.WorksheetFunction.CountIf(Range("A" & x & ":A" & ur), Cells(x, 1)) = 1 Then
        Set ff = fs.createtextfile(SPath & nfile, True)
    End If
...