Temizle MsgBox hk

[üveyin]

Arkadaşlar aşağıdaki temizleme işlemi yapan koda msgbox eklemek istiyorum, aslında vbYesNoCancel butonları geldiğinde silme işlevini evet tıklayınca silsin yada hayıra tıklayınca silmemesini istiyorum mümkün mü?

Sub Temizle()

Sheets("ÖLÇÜ LİSTESİ").Range("A6:U1000").ClearContents
Sheets("Sayfa1").Range("D2:G1000").ClearContents

Sayfa6.Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Range("C2").Select

Columns("G:xfd").Select
Selection.EntireColumn.Hidden = True

Sheets("ANA SAYFA").Select

mycount = Range("AG6")
Range("AG6") = mycount

End Sub

 

[dEdE]

Sub Temizle() den sonra aşağıdaki satırı ekleyip dener misiniz?
If MsgBox(" Temizlemek İstediğinizden Emin misiniz? ", vbYesNo + vbQuestion, "ONAY") = vbNo Then Exit Sub

 

[üveyin]

Emeğinize için çok teşekkür ederim.