Not completely clear what you mean by TEXT LABEL" assuming you mean you added text to the shapes try this. Note this will modify ALL slides. For just the current slide (or selected slides)
Replace
For Each osld In ActivePresentation.Slides
With
For Each osld In ActiveWindow.Selection.SlideRange
Sub fixSelPane()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then
oshp.Name = oshp.TextFrame.TextRange
End If
End If
Next
Next
End Sub