Selecting multiple sheets for a "assign-label-code"

Hi guys,


I have multiple excel sheets with names like:
PG1 2013
1. brand 2012-2013-10. brand 2012-2013 and more.

I would like helt to one of these suggetions:

1. Run this code on only the excel sheets that need labels to be assigned
Or
2. Run the code on all sheets even though far from all need a label assigned.

Code

Sub Tilføj_labels()
' Makro der tilføjer labels
Dim x As Integer

ActiveChart.PlotArea.Select
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=True, ShowCategoryName:=False, _
ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.ChartArea.Select
ActiveChart.Deselect
End Sub

Please help me out, so I can run this code on multiple sheets or all of them.
The code works on each individual, but since it's going to be a part of button I need it to know what sheets to be run on.

Thank you in advance.