Hi all,

I have a macro where the macro checks for the presence of datalabel and the
superscripts the 3rd character. so far this works fine, here is the code
below.

Sub Superscripting()

Dim x As Integer, y As Integer
Dim Ix As Integer
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel, LegendKey:=False
ActiveChart.SeriesCollection(1).DataLabels.Select
'ActiveChart.SeriesCollection(1).Points(2).DataLab el.Select

For x = 1 To ActiveChart.SeriesCollection.Count
For y = 1 To ActiveChart.SeriesCollection(x).Points.Count
With ActiveChart.SeriesCollection(x)
If .Points(y).HasDataLabel Then
.Points(y).DataLabel.Characters(3, 1).Font.Superscript = True

End If

End With
Next y
Next x

End Sub

Now what i want to do is to determine if the datalabel has alphabet and
numbers, if only numbers then do nothing, but if it has alphabets as well
then superscript the alphabet part of the datalabel.

Hope some one could help me

Thanks a many.
Jyotsna