Il breve listato che segue non riesco a farlo funzionare se uso Select case, mentre invece con il ciclo IF tutto fila liscio. Siccome però la prima soluzione è nettamente più rapida, qualcuno sa dirmi dov'è l'errore?
In "grafdati" è presente un valore che va ad occupare la ActiveCell, la quale corrisponde a "Dani", quindi si esegue la cancellazione dell'etichetta precedente il numero totale di dati.
Ripeto, con IF tutto ok, il prolblema è qui con il Case.
Sub aaaa()
Worksheets("foglio1").Application.Goto Reference:="grafdati"
Selection.Find("serie1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Select
Select Case ActiceCell
Case Is = "dani"
Sheets("Grafico1").Select
ActiveChart.SeriesCollection(1).DataLabels.Select
ActiveChart.SeriesCollection(1).Points(1).DataLabel.Select
Selection.Delete
End Select
End Sub