Macro excel

[Pessoa2009]

Bom dia

 

tenho o código abaixo que salva arquivo excel como nome o valor de uma célula no formato xlsm e pdf. Após a rotina o novo arquivo é fechado.

 

Gostaria que ajudassem para um ajuste onde após a rotina de fechamento do novo arquivo, a macro abrisse o arquivo original automaticamente para novo calculo

 

Public Sub Imprime_Apuracao_1()Dim W As IntegerW = Range("p126").ValueActiveWindow.SelectedSheets.PrintOut From:=5, To:=W, Copies:=1, Collate:=TrueOn Error Resume NextDim Caminho As StringCaminho = ThisWorkbook.Path & "\"ActiveWorkbook.SaveAs Filename:=Caminho & [a126].Value & ".xlsm"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & [a126].Value & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _        :=False, From:=5, To:=5, OpenAfterPublish:=FalseMsgBox ("Resultado de : ") & [a126].Value & " foi salvo." _    , vbInformation, "IFBB-RIO"    ActiveWorkbook.Save    Application.QuitEnd Sub