O codigo esta incompleto, disponibilize novamente mas dessa vez com o arquivo

Marcelo, boa noite.
Realmente o codigo estava incompleto mesmo.

Sub SalvarComo()
    Dim fname As Variant
    Dim ws As Worksheet
    Dim NewWb As Workbook
    Dim FileFormatValue As Long   

        fname = Application.GetSaveAsFilename(InitialFileName:=Range("AJ6").Text & "_" & Range("Y4").Value & "_" & Range("A4").Value, FileFilter:= _
       "PDF Files (*.pdf), *.pdf", _
        FilterIndex:=1, Title:="Salvar Como um Novo Arquivo de Inspeção")
       
        If fname = False Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
            MsgBox "Arquivo em PDF criado com sucesso."
         End If
   

Kd o arquivo amigo??

É necessario testar o codigo.

Apague dados confidenciais.

... mesmo quando eu clico em cancelar, executa a macro...
...
...

...
        If fname = False Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
            MsgBox "Arquivo em PDF criado com sucesso."
         End If

Analisando por alto, penso que sua expressão condicional está invertida. Na verdade, ao contrário do que vc espera, ele somente irá executar o salvamento (exportação) se for clicado em cancelar, pois ao fazer isso fname terá o valor false então fará o que está dentro da expressão condicional. Penso que ao invés de usar

If fname = False Then

Terias que usar

If fname <> False Then
...

Muito obrigado Edson, não tinha atentado para esse detalhe.
Deu certinho aqui.