Pessoal, boa tarde,

Obtive ajuda do nobre colega Mauro Coutinho para gerar uma macro que salva o arquivo em PDF.

Porém o código está gerando diversos arquivos em PDF. Abrindo janelas do Adobe Reader ao mesmo tempo.

Alguém consegue me ajudar inserindo no código um comando para fechar a janela "Aplicação" do Adobe Reader?

Sub ExportaComoPdf()

Dim NomeArq As String
Dim ultimaLinha As Long
Dim snRG As Range

Sheets("RESUMO ND").Select
ultimaLinha = Range("A1048576").End(xlUp).Row 'verifica qual a ultima celula preenchida

'Definimos o Range a ser copiado
Set snRG = Range("A2:" & "A" & ultimaLinha)

'Fazemos o Loop em cada Celula
For Each scel In snRG

'Se for só dados envia direto para o Range N10
scel.Copy Destination:=Worksheets("ND").Range("P10")

NomeArq = Sheets("ND").Range("P12")

Sheets("ND").Select

'Salva Planilha em PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
NomeArq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Next

MsgBox ("Arquivo gerado com sucesso!")

End Sub