Grafik varmı yokmu

[kykbt]

Arkadaşlar merhaba

Excell sayfası üzerine oluşturulmuş bir sürü grafik var.

Sub Grafik_Sutun_Yazı_Bicimlendir()
Dim i, hata, msg
On Error GoTo hata

For i = 11 To 100
n = "Grafik " & i
If Dir(n) = "" Then
    MsgBox "Garafik Yok"
    Else
    MsgBox "Garafik Var"
End If

    Varmı = ActiveSheet.ChartObjects("Grafik " & i).Visible ' = False

    ActiveSheet.ChartObjects("Grafik " & i).Activate
    ActiveChart.ChartArea.Select
msg = MsgBox(n & "    üzerinde işlem yapılacaktır. Onaylıyormusunuz.? ", vbYesNoCancel, "Mesaj Kutsu")
        If msg = vbYes Then GoTo 10
        If msg = vbNo Then GoTo 20
        If msg = vbCancel Then GoTo son       'veya doğrudan GoTo son yerine End yazınız
son:
        MsgBox "İşlemi Bitirmeden Çıkış Yapıyorsunuz"
        End
10
20
.
.
.
.
.

hata:
20
Next i
    ActiveWindow.Visible = False
    Range("I36").Select
End Sub

.
.
Grafiğin var olup olmadığını nasıl bir kod ile bulurum.
Döngü olmayan grafik adına gelince hata veriyor.
.
.

 

[kykbt]

Arkadaşlar bir el atan olmayacakmı?