Opret Diagram på ukendt arkfane

For Each WS In Worksheets
If WS.Name Like "0*" Then
  WS.Select

<<< Opret diagram >>>

End If
Next WS

Hvordan opretter man et diagram i denne løkke ?

ActiveChart forventer at få en navngiven Sheet !!!!

ActiveChart.SetSourceData Source:=Sheets(ws.Name).Range("B16:M19"), PlotBy _
        :=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="????"

Tænkte det nok :o) .... prøvede med ws alene, men det virkede ikke

hvis det dur, så får du et svar ;-))

Det dur ikke helt :

Sheets(WS.Name).DrawingObjects("Diagram 5") ???? hvad hedder diagrammet så ?

For Each WS In Worksheets
        If WS.Name Like "0*" Then
            WS.Select
            Charts.Add
            ActiveChart.SetSourceData Source:=Sheets(WS.Name).Range("B16:M19"), PlotBy _
                                                                              :=xlRows
            ActiveChart.Location Where:=xlLocationAsObject, Name:=WS.Name
        End If
    Next WS

Kabbak > jeg kan simpelthen ikke få det til at virke ... må jeg maile et regneark med testdata i ... sammen med en forklaring på hvordan resultatet skal være ????

Sorry ... kodebøf fra min side :o)