Olá pessoal,

Tenho o código abaixo que utilizo para salvar minha planilha em PDF, porém quando clico em "Cancelar", ele salva mesmo assim o arquivo e aparece a mensagem: "O arquivo PDF foi salvo em: FALSO".

Precisava duas coisas:
1) Quando clicasse no botão "cancelar", cancelasse a operação e aparecesse uma mensagem (MsgBox) "Operação Cancelada".
2) Salvar todo o documento e não apenas a planilha ativa (declarar as abas que eu quero salvar).

Obrigado.

Sub bt_savepdf()

Dim wsA As Worksheet
Dim wbA As Workbook
Dim v_NomeArquivo As String
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler

'configurações para salvar o nome do arquivo
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
v_NomeArquivo = Sheets("PARAMETRO").Range("B5").Value
strTime = Format(Now(), "yyyymmdd")                    

'Obter pasta de trabalho ativa, se salvo
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & ""

'substitui espaços e periodos no nome da planilha
strName = Replace(v_NomeArquivo, " ", "_")
strName = Replace(strName, ".", "_")

'cria nome padrão para salvar o arquivo
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile

'usuário digita o nome e
' caminho do arquivo
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Selecione Local e Nome do Arquivo para salvar")

'exporta para PDF se uma pasta for selecionada
If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'Mensagem de confirmação com informações de arquivo
    MsgBox "O arquivo PDF foi salvo em: " _
      & vbCrLf _
      & myFile
End If

exitHandler:
    Exit Sub
    
errHandler:
    MsgBox "Não foi possível salvar o arquivo"
    Resume exitHandler
End Sub