With srsNew ' use same With block as already exists
.HasDataLabels = True
.DataLabels(1).Text = plotLabelVal
End With

Jon,

Many thanks. The above code placed with the case select loop worked
perfectly!

Chris