Visual Basic - Guardar Como sin que se pregunte que desee reemplazar y sin cuadros de dialogos en rutas dinamicas

Sub errorguardar()

Dim rutanube As String

Dim RutaArchivo As String

On Error Resume Next

    rutanube = Hoja15.Range("R14")

    RutaArchivo = rutanube & "\pruebas_guardado_nube.xlsm"

    Application.DisplayAlerts = False

ActiveWorkbook.SaveAs RutaArchivo

If ActiveWorkbook.Saved = False Then

MsgBox ("ALERTA...!! Existe un ERROR en la Ruta del Directorio de guardado del sistema por favor revise su conexíon")

End If

End Sub

Sub errorguardar()

	Dim rutanube As String

	Dim RutaArchivo As String

	On Error Resume Next

	rutanube = Hoja15.Range("R14")

	RutaArchivo = rutanube & "\pruebas_guardado_nube.xlsm"

	Application.DisplayAlerts = False

	Kill RutaArchivo

	ActiveWorkbook.SaveAs RutaArchivo

	If ActiveWorkbook.Saved = False Then

		MsgBox ("ALERTA...!! Existe un ERROR en la Ruta del Directorio de guardado del sistema por favor revise su conexíon")

	End If

End Sub