Thank you very much, it runs !!!


"Debra Dalgleish" <dsd@contexturesXSPAM.com> ha scritto nel messaggio
news:4253CDFA.8050602@contexturesXSPAM.com...
> You could use an event procedure to do this. Add the following code to
> the sheet module, as described here:
>
> http://www.contextures.com/xlvba01.html#Worksheet
>
> '=================================
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If Target.Address = "$C$1" Or _
> Target.Address = "$D$1" Then
> Charts.Add
> With ActiveChart
> .ChartType = xlColumnClustered
> .SetSourceData Source:=Range("A1:B5")
> .Location Where:=xlLocationAsNewSheet
> End With
> Me.Activate
> End If
>
> End Sub
> '====================================