Hvis fejl forsæt

Jeg har tidligere idag fået svar på spørgsmål

http://www.eksperten.dk/spm/73087
koden ser sådan her ud.

Sheets("Ny grafik 1").Select
    Range(grafarealet).Select
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Ny grafik 1").Range(grafarealet), _
        PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Output"
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = False
        .HasAxis(xlValue, xlPrimary) = True
    End With
    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
    ActiveChart.HasLegend = False
    ActiveChart.HasDataTable = True
    ActiveChart.DataTable.ShowLegendKey = True
    ActiveChart.PlotArea.Select
    With Selection.Border
        .ColorIndex = 16
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    Selection.Interior.ColorIndex = xlNone
    Dim i As Integer
   
   
   
    If ActiveChart.SeriesCollection.Count > 0 Then
        For i = 1 To ActiveChart.SeriesCollection.Count
         
            ActiveChart.SeriesCollection(i).Border.Weight = xlThick
       
       
        Next
       
    End If

Problemet er at den opretter grafen og laver stregerne tykke til sidst, som den skal. Men pga af nogle tidligere valg kan den godt oprette en graf som ikke er der. Så jeg skal gerne have en funktion som hoppper videre i loopet hvis grafen ikke eksistere.