Codigo VBA para quando clicar no botão fechar (x), o userfom feche e logo em seguida abra o menu de inicio

[Di Oliveira]

Olá amigos,  estou com um probleminha aqui em um código vba, estou desenvolvendo um controle de biblioteca com menu iniciar, para selecionar as ações de cadastro, devolução, emprestimo etc.., tudo funcionando beleza, o problema é que não estou conseguindo gerar um código para ao clicar no botão fechar (x), esse feche o userform (exemplo: cadastro) que está sendo usado e retorne ao menu iniciar. se alguém tiver alguma dica, agradeço desde já.

O código que estu usando temporariamente é esse que segue abaixo, mas o que ele faz é salvar o trabalho que foi feito até o momento e fecha o workbook por completo:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then
    
     
        'SALVAR ARQUIVO
  
      ThisWorkbook.Save
        
      
        'SAIR DO EXCEL
      
        
        Application.Quit
    
    End If

Editado Agosto 26, 2015 por Di Oliveira

[Nelson S]

ao clicar no botão fechar (x), esse feche o userform (exemplo: cadastro) que está sendo usado e retorne ao menu iniciar

 Ao clicar no botão fechar (x) do formulário, este se fecha.. Ok.

E esse menu iniciar seria o quê? Um outro formulário? Uma planilha (plan) com botões?

[Jefferson Inácio]

Também não entendi, mas tenta isso: (o Unload fecha a janela que vocês especificar e o .Show abre a janela que você desejar).

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then
    
     
        'SALVAR ARQUIVO
  
      ThisWorkbook.Save
        
      
        'SAIR DO EXCEL

Unload UserForm
INICIAR.Show

End Sub

[Pedro Queiroz]

Atualizando código

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then
    
     
        'SALVAR ARQUIVO
  
      ThisWorkbook.Save
        
      
        'SAIR DO EXCEL

'fechar formulario
Unload UserForm1

'fechar planilha

Application.Quit

End If
End Sub

Editado Março 9 por Pedro Queiroz