Bom dia pessoall...

Tenho uma planilha que já está rodando 95% do que preciso.

Ela executa uma série de macros, quando a pessoa clica em um botão.

Seria o seguinte, quando clica no botão, as macros fazem o seguinte: imprime, converte campos de formulas para valores, copia os dados e cola em outra planilha, limpa os campos digitados.

Para finalizar o processo, gostaria de saber como faço para colocar uma caixa(não sei se é de mensagem) no final da minha rotina que perguntasse se continua digitando, ou seja, não sai da planilha, continua do jeito que está, ou se encerra. Se encerrar, salvar a planilha e fechar.

Abaixo a macro principal que é executada quando clica no botão(o botão para o usuario, é somente para limpar a planilha).

Grato

Sub Limpa_dados()

   'Verifica se campo obrigatorio esta vazio
   If [b6] = "" Then
            MsgBox ("Preencha o CAMPO OP para continuar!!")
            Cancel = True
            Exit Sub
            Range("B6").Select
       Else
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:Ops a imprimir" & ActiveSheet.Range("b6").Value& & Format(Date, " - dd-mm-yyyy") & ".pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
   End If

Application.ScreenUpdating = False 'Congela a tela
Call desproteger
Call conversao
Call Copiacola
Call Desfaz_mesclagem
Call Zera_campos
Call Mescla_campos
Application.ScreenUpdating = True ' Descongela a tela
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("B4:C5").Select

End Sub