Macro para el botón guardar

La instrucción que necesitas es :
ActiveWorkbook. Sabe
Sub guardar()
'ActiveWorkbook.Save
End Sub
Esta macro se la asignas al botón
Te recomiendo que utilices la grabadora de macro y veas cuales son los movimientos que realizas es sumamente útil.

Muchas gracias por la ayuda, funciono a la perfección, solo tengo una duda más.
Tengo otro botón para cambiar de Libro, nada más que no se que le haga falta para que a la hora de abrir el otro archivo cierre el primero.
Este es el código que tengo.
Sub Auto_close()
' Auto_close Macro
' Macro grabada el 26/11/2008 por Usuario
MsgBox "SI SUS DATOS SON CORRECTOS, CAPTURE LOS DATOS DEL ACTIVO CIRCULANTE", , "Advertencia"
Workbooks.Open Filename:= _
"F:\DESARROLLO DE PROGRAMAS\CAPTURA DE DATOS INICIALES\INTEGRACION DEL ACTIVO CIRCULANTE.xls"
Sheets("TOTALES").Select
Range("b1").Select
Windows("INTEGRACION DEL ACTIVO CIRCULANTE.xls").Activate
End Sub
Saludos

Prueba con esta opción
Sub Auto_close()
' Auto_close Macro
' Macro grabada el 26/11/2008 por Usuario
Dim nombre_del_fichero As String ' declaro la variable
nombre_del_fichero = ThisWorkbook.Name 'obtengo el nombre del libro actual
' nombre_del_fichero = ThisWorkbook.Name & ".xls" si tu exel no  funciona con el codigo 'anterior prueba añadiendole la extencion ".xls"
MsgBox "SI SUS DATOS SON CORRECTOS, CAPTURE LOS DATOS DEL ACTIVO CIRCULANTE", , "Advertencia"
Workbooks.Open Filename:= _
"F:\DESARROLLO DE PROGRAMAS\CAPTURA DE DATOS INICIALES\INTEGRACION DEL ACTIVO CIRCULANTE.xls"
Sheets("TOTALES").Select
Range("b1").Select
Windows("INTEGRACION DEL ACTIVO CIRCULANTE.xls").Activate
Windows(nombre_del_fichero).Close 'cierro el fichero
End Sub

Gracias funciono a la perfección.
Una pregunta más, ¿qué le agregó para que ya no aparezca el cuadro de dialogo de Desea guardar los cambios realizados...?
Saludos
Moni