I am trying to create a presentation with multiple buttons that will show
different data point on a map when selected.  The macro I created works fine
in PPT but not in Slideshow View.  After reviewing additional posts with this
issue I understand why it doesn't work (selection in code which can't be done
in slide show view) but I don't understand how to fix it.   Below is simply
code I created by recoding a macro,(I am by no means a programmer) that
creates a text box with a number in it.  That's it.  Thanks

Sub number()
'
' Macro recorded 7/10/2007 by Melissa
'

   
ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 162, 78, 54, 28.875).Select
   ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrue
   With ActiveWindow.Selection.TextRange.ParagraphFormat
       .LineRuleWithin = msoTrue
       .SpaceWithin = 1
       .LineRuleBefore = msoTrue
       .SpaceBefore = 0.5
       .LineRuleAfter = msoTrue
       .SpaceAfter = 0
   End With
   
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
Length:=0).Select
   With ActiveWindow.Selection.TextRange
       .Text = "1"
       With .Font
           .Name = "Arial"
           .Size = 18
           .Bold = msoFalse
           .Italic = msoFalse
           .Underline = msoFalse
           .Shadow = msoFalse
           .Emboss = msoFalse
           .BaselineOffset = 0
           .AutoRotateNumbers = msoFalse
           .Color.SchemeColor = ppForeground
       End With
   End With
End Sub