Mejorar macro para exportar a otro libro

Hola expertos: tengo una macro que copia un rango de una hoja (que hace de base de datos del libro) a la que llamo DB. Esta permanece oculta en todo momento. Con el siguiente código exporto la hoja BD(es la hoja 1) a otro libro que se crea en el momento. Lo que quiero es evitar que la aplicación me pregunte "Existe otro archivo con el nombre "salida.xls" ... Desea reemplazarlo?" y que directamente me lo reemplace. La macro que tengo funcionando es:
Sub exportar()
Dim rpta As String
Hoja1.Visible = True
rpta = MsgBox("Exportará una copia de la Base de Datos a C:\salida.xls", vbYesNo + vbExclamation, "Desea continuar?")
If rpta = vbYes Then
Hoja1.Select
Range("A1:H65536").Select
Selection.Copy
Workbooks.Add
Range("A1:H65536").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\Salida.xls ", FileFormat:=xlNormal, Password:="", ReadOnlyRecommended:=False
ActiveWindow.Close
Hoja1.Visible = False
Hoja2.Select
Else
Exit Sub
End If
End Sub
Muchas gracias de antemano!