Sub muestrahojas()
'ocultar las pestaas
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Sub ocultahojas()
'ocultar las pestaas
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Sub Guardarysalir()
On Error Resume Next
Application.Quit
End Sub