como hago lo siguiente ????

Hola
tengo el siguiente problema ...

en la hoja1, en la columna A tengo una lista de nombres
por ejemplo : A1= AAA0120031217 ; en A2= AAA0220031218
A3=... necesito una macro que lea la columna A y
grabe archivos txt con los nombres que encuentre en la
columna A. Asi al final tendria los archivos
AAA0120031217.txt , AAA0220031218.txt .

Ahora el problema es que necesito que cuando ejecuto la
macro y cuando vaya a guardar el archivo AAA0120031217 :
si el archivo ya existe en mi directorio ...se salte es
paso , que no guarde nada y siga con la linea A2 y guarde
el siguiente archivo

Lo que tengo hasta ahora de codigo me graba el primer
archivo . comot endria que ahcer para obtener lo que
quiero??

Sub Macro1()

Var = Range("A2") & (".txt")
ActiveWorkbook.SaveAs Filename:= _
"\\Gema\SharedDocs\" & (Var), FileFormat:=xlNorma, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False


End Sub