Excel - guardar archivo con el mismo nombre con saveas

Tengo eso en un boton, y si el archivo existe no lo reemplaza sale error, habra alguna forma de que lo sobreescriba directamente o tengo que borrarlo y crearlo nuevamente??
En otra ocacion me sale un cuadro de mensaje que el archivo ya existe que si lo deseo sobreescribir SI NO Cancelar.

Pero aun alli da el mismo error (por cierto ya no se como hacer para que salga el cuadro ese, jeje)

Private Sub CommandButton1_Click()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
Set NewBook = Workbooks.Add
NewBook.SaveAs Filename:=fileSaveName
MsgBox "Save as " & fileSaveName
End If

End Sub

SaveAs se usa para guardar un archivo por primera vez, en otro caso
se usa Save
Probá también usar Application.DisplayAlerts = False

Saludos desde Baires, JuanC

O sea el archivo se guarda por primera vez, pero da la casualidad qeu ya existe el nombre, entonces a veces me sale un cuadro de desea reemplazar, yo digo si, y ahi esta el error, eso me pasa en office 2000, creo que con el 2003 no pasaba eso.

si uso el displayalerts, obvia la parte de preguntar si existe o no y le da "plomo" con el anterior.

Mira ya di con el error, el error solo me da cuando tengo el mismo archivo abierto, o sea tengo que determinar si esta abierto o no el archivo, y ahora como eso?

Podría ser algo así:

For Each w In Application.Workbooks
If w.Name = sNombreArchivo Then 'o usar InStr()
'Está abierto...
End If
Next

Saludos desde Baires, JuanC

Si me parece buena idea hacerlo asi, gracias.

AL FINAL QUEDO ASI Y SI FUNCIONA. SI ESTA ABIERTO LO CIERRA PRIMERO.

FILESAVENAME = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
NOMBRESOLO = Right(FILESAVENAME, Len(FILESAVENAME) - InStrRev(FILESAVENAME, "\"))

If FILESAVENAME <> False Then
For Each w In Application.Workbooks
If w.Name = NOMBRESOLO Then
Workbooks(NOMBRESOLO).Close False
End If
Next

Set NewBook = Workbooks.Add
NewBook.SaveAs Filename:=FILESAVENAME
MsgBox "Save as " & FILESAVENAME
End If