Mensaje al generar PDF desde excel

A los integrantes de este foro, en esta ocasión recurro a uds, para que ayuden de que manera se puede evitar el mensaje Publicación... al momento de guardar el formato en pdf y como se aprecia en la imagen:

adjunto el codigo

Sub ElegirAccion()
Dim i As Integer
Dim intInicial As Integer
Dim intFinal As Integer
Dim intConsecutivo As Integer
Dim srtTitulo As String
Dim Ruta As String
Dim nombre As String

nombre = ThisWorkbook.Sheets("BOLETA PDF").Range("O4").Value

srtTitulo = "PRUEBITA"
intConsecutivo = ThisWorkbook.Sheets("BOLETA PDF").Range("CONSECUTIVO").Value

intInicial = Sheets("BOLETA PDF").Range("N4")
intFinal = Sheets("BOLETA PDF").Range("M3")
If intFinal < intInicial Or intFinal > intConsecutivo Then
MsgBox "Valida el ID final.", vbExclamation, srtTitulo
Else
Sheets("BOLETA PDF").Select
Ruta = ActiveWorkbook.Path
For i = intInicial To intFinal
ThisWorkbook.Sheets("BOLETA PDF").Range("B4").Value = i

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & Sheets("BOLETA PDF").Range("B6") & " " & "BOLETAS MN " & Sheets("BOLETA PDF").Range("I7") & ".pdf", _
Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next i
End If
Sheets("BOLETA PDF").Activate
Range("B4").Select
intInicial = Sheets("BOLETA PDF").Range("N4")
End Sub

y una de mis interrogantes es que quizás por la sentencia: 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta

Tal vez exista otro procedimiento para evitar dicho mensaje o mejorar el codigo, por lo que desde ya agradezco su apoyo.