Overwriting text files

I'm writing a macro that opens several workbooks, transforms them and then
saves them as a text files.
The problem is that I need the same files overwritten, and when I use the
line below, I get a message saying that a file with the same name already
exists and asks if I want to replace it, which means that I can't automate
the process because I have to click on 'yes' after each file is ready.
Is there a way to automate this?

ActiveWorkbook.SaveAs Filename:= strPath & "\" & strFileName(i) & ".txt",
FileFormat:=xlText

Thank you.

Orlando Acevedo wrote:
> I'm writing a macro that opens several workbooks, transforms them and then
> saves them as a text files.
> The problem is that I need the same files overwritten, and when I use the
> line below, I get a message saying that a file with the same name already
> exists and asks if I want to replace it, which means that I can't automate
> the process because I have to click on 'yes' after each file is ready.
> Is there a way to automate this?
>
> ActiveWorkbook.SaveAs Filename:= strPath & "\" & strFileName(i) & ".txt",
> FileFormat:=xlText
>
> Thank you.

Try turning off the system messages prior to saving the file (and
turning them on again after)

Application.DisplayAlerts=False

ActiveWorkbook.SaveAs Filename:= strPath & "\" & strFileName(i) &
".txt",
FileFormat:=xlText

Application.DisplayAlerts=True

HTH
Neil