Access - Exportar una consulta a excel

Hola.
Quería saber quien me puede ayudar con lo siguiente.
Tengo una consulta en access y quiero en un formulario agregar un botón, que exporte esa consulta a un excel, es decir, cuando haga click en ese boton aparezca la consulta en un excel.

Gracias
Saludos.

Private Sub ExportarExcel_Click()
DoCmd.TransferSpreadsheet acExport, 8, "Tabla1", "c:\Excel_Tabla1", True, ""
MsgBox "Se ha creado el Libtro de Excel Excel_Tabla1 en C:\ ", vbOKOnly, "Aviso"
End Sub