Crear archivos txt individuales con el nombre de cada celda

Buenas,

Necesito ayuda, no domino mucho el excel y no doy con la macro que necesito.

Lo único que necesito es crear archivos txt individuales con el nombre de cada celda, encontré una macro que me valía pero lo tenia que hacer celda a celda y necesitaría que lo hiciera por rangos. si se creara automáticamente al guardar nuevos datos sin necesidad de ejecutar la macro perfecto pero seria un add.

Adjunto la macro que encontré por si sirve de ayuda.

Sub GeneraMiniArchivoDeTexto()

Dim myfile As String, mytexto As String

myfile = ThisWorkbook.Path & "\" & _

Cells(Selection.Row, "a") & ".txt"

If Dir(myfile) <> "" Then Kill myfile

mytexto = Cells(Selection.Row, "ab")

Workbooks.Add

[a1] = mytexto

With ActiveWorkbook

.SaveAs Filename:=myfile, FileFormat:=xlTextPrinter

.Close False

End With

End Sub

Gracias.