¿Cómo puedo hacer que una macro se ejecute en 2do plano?

Quisiera saber como puedo hacer para que mi macro se ejecute en 2do plano

Este es mi código:

Sub PasarDatosaPdf()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set h2 = Sheets("Hoja2") 'contador
'
celdas = Array("B2", "C2", "D2", "E2", "F2", "G2", "H2", "I2", "J2", "K2", "L2", "M2", "N2", "O2", "P2", "Q2", "R2", "S2", "T2", "U2", "V2", "W2", "X2", "Y2", "Z2", "AA2", "AB2", "AC2", "AD2", "AE2", "AF2", "AG2", "AH2", "AI2", "AJ2", "AK2", "AL2", "AM2", "AN2", "AO2", "AP2", "AQ2", "AR2", "AS2", "AT2", "AU2", "AV2", "AW2", "AX2", "AY2", "AZ2", "BA2", "BC2", "BD2", "BE2", "BF2", "BG2", "BH2", "BI2", "BJ2", "BK2", "BL2", "BM2", "BN2", "BO2", "BP2", "BQ2", "BR2")
'
ruta = "E:\jocampo\DOCUMENTOS\"
nomb = "Forma-37EDITADO"
ActiveWorkbook.FollowHyperlink ruta & nomb & ".pdf"
'
Application.Wait Now + TimeValue("00:00:03")
For i = LBound(celdas) To UBound(celdas)
SendKeys "{TAB}"
SendKeys h2.Range(celdas(i)).Value, True
Application.Wait (Now + TimeValue("0:00:01"))
Next
'
Application.ScreenUpdating = True
MsgBox "Se enviaron los datos al pdf"
End Sub