macro para guardar archivo reemplazando existente

[axel07_89]

Genial!! I got it!! ::Feliz:: asi quedo por si a alguien le interesa. GRacias al código del amigo Pablus00 me di una idea y creo que funcionó:

Sub guardar()
Dim arch() As String
Dim hoja() As String
Dim nombre As String
Dim nombre1 As String
Dim nombre2 As String
Application.DisplayAlerts = False
fechaf = " " & Format(Now, "dd-mm-yy hhmmss")
ruta = ActiveWorkbook.Path
n_hoja = ActiveSheet.Name
n_arch = ActiveWorkbook.Name
n_h = ActiveSheet.Name
n_a = ActiveWorkbook.Name
ex = Split(n_a, ".")
ex2 = Split(n_h, ".")
hoja = Split(n_hoja, " ")
nombre = ruta & "\ArchCVS\" & hoja(0) & fechaf & ".csv"
ActiveSheet.SaveAs Filename:=nombre, FileFormat:=xlCSV
arch = Split(n_arch, " ")
nombre1 = ruta & "\ArchExcel\" & arch(0) & fechaf & ".xlsx"
ActiveWorkbook.SaveAs Filename:=nombre1, FileFormat:=51
nombre2 = ruta & "\" & arch(0) & fechaf & ".xlsm"
ActiveWorkbook.SaveAs Filename:=nombre2, FileFormat:=52
Kill (ruta & "\ArchExcel\" & ex(0) & ".xlsx")
Kill (ruta & "\" & ex(0) & ".xlsm")
Kill (ruta & "\ArchCVS\" & ex2(0) & ".csv")

'Application.DisplayAlerts = True
End Sub

Solo es necesario comentar los kill la primera vez... y listo. De mandar llamar el archivo antes de guardar mejor me olvido al fin y al cabo el usuario alguna vez lo cerrará jeje

::EMOCIÓN::