Makro ile istenilen adette yazdırma.

[srdkrtd]

Arkadaşlar merhaba, bir makrom var, bu makronun "AG2" hücresindeki sayı kadar tekrar etmesini ve makro çalışmaya başlamadan önce son bir uyarı mesajı verip onay istemesini ("AG2" hücresindeki sayı kadar örn: " 83 ADET BASKI YAPILACAK EMİN MİSİNİZ..! " istiyorum. Yardımlar için şimdiden teşekkür ederim.
Makro aşağıda:

Sub SIRALIYAZ()
'
' SIRALIYAZ Makro
' SIRALI YAZ
'

'
    Range("AD1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]+1"
    Range("AD1").Select
    Selection.Copy
    Range("AC1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub