Macro That Creates Text Doc in specific folder based on cell value

I need to create a macro that will look at a specific cell, and if it is filled, create a txt document with that cell name, in a specific folder.

For example, if A1 = "John Smith", the macro would create the file "John Smith.txt" in C:/Clients/

Further more, in an attempt to prevent deletion of an already created filed, it would need to first confirm there is no John Smith.txt already located in the folder, then create the file. If there already is a John Smith.txt, it would simply move on to A2, A3, A4, etc performing that same task, until all of column A's cells have corresponding txt files.

Thanks for your help guys.

Steve, drop a note to the Moderators (DonKeyOte, Teylyn, Davesexcel, NBVC) and ask them to move your post to the correct forum, the Programming forum.

========
As for the macro, you say "create a file named John Smith"...but you don't indicate what the content of that file should be. Sheet1? Sheet5? "Data"?

I want it to be a blank file. Literally just a 0 kb .txt file with the person's name, placed in a specified folder.

This should do it for you:

Sub WriteBlankTextFiles()
'JBeaucaire  (12/16/2009)
'For each used cell in column, create a zero-length text file of same name
'Verifies file does not exist, leaves existing files alone
Dim RNG As Range, cell As Range, fName As String

Set RNG = Range("A:A").SpecialCells(xlCellTypeConstants).Cells
On Error Resume Next

For Each cell In RNG
    fName = Dir("C:\Temp\" & cell.Text & ".txt")
    If Len(fName) = 0 Then
        Open "c:\temp\" & cell.Text & ".txt" For Output As 1
        Close #1
    End If
Next cell

End Sub

thread moved to Programming...