Makro pdf oluştururken hıza takılyor? nasıl yavaşlatırım?

[apismellifera]

:yardim:Aşağıdaki şekilde bir makro var elimde, yanlız pdf oluşturuken excel save as işlevi makronun hızına yetişemiyor ve 17-18. pdf2te takılıyor. hata veriyor nasıl "biraz" yavaşlatabilrim. Şimdiden teşekkürler.

Option Explicit
Sub pdf_kayıt_61()
Dim ts, i

For i = 1 To 120

If i < 10 Then
Cells(1, 15).Value = "00" & i
ElseIf i < 100 Then
Cells(1, 15).Value = "0" & i
Else
Cells(1, 15).Value = i
End If

ts = ThisWorkbook.Path & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ts & Range("O23"), Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next i
End Sub

 

[apismellifera]

Herkese teşekkürler
Application.Wait (Now + TimeValue("0:00:02")) ile çözdüm.