A DONT change the if then part of Paul's code. It will crash if the textbox is not numeric if you do.
B I don't know why Paul did it that way but I wouldn't especially if you don't understand slide objects see my attachment
C Do you understand slide objects (I don't think so) Slide2 is NOT NECESSARILY the second slide.
If you are looking at a normal textbox
ActivePresentation.Slides(1).Shapes("TextBox 9").TextFrame.TextRange.Text=ActivePresentation.Slides(2).Shapes("TextBo x 5").TextFrame.TextRange
If the textbox on slide 2 is an ActivX textbox
ActivePresentation.Slides(1).Shapes("TextBox 9").TextFrame.TextRange.Text=ActivePresentation.Slides(2).Shapes("TextBo x 5").OLEFormat.Object.Text




Reply With Quote