Não testei, mas tenta assim: Sheets("TI").Select MsgBox "Deseja inserir novo chamado?", vbYesNo, "Atenção" If Yes The...

Cria um CommandButton como Name "CbSair" Na janela de propriedade deste comando coloca Cancel True Private Sub CbSair_Click() Unload Me ...