Macro: error en metodo save de objeto workbook

Podrian ayudarme a resolver esto
Tengo un archivo que al guardarlo me da error
error en tiempo de ejecucion 1004, error en metodo save de objeto workbook
y me selecciona esto
ThisWorkbook. Save
El codigo completo donde esta eso es asi:
Private Sub CommandButton1_Click()
If ComboBox1.Text = "" Then
MsgBox " Elija Una Opcion"
End If
If ComboBox1.Text = "Guardar y Salir" Then
Sheets("Portada").Activate
Application.WindowState = xlMaximized
Call MostrarTodo
Application.DisplayAlerts = False
Application.EnableEvents = False
ThisWorkbook.Save
Application.Quit
End
End If
Que solucion tiene esto.