Simple macro in ppt

[cjmcma]

Tried to set up some simply custom macro buttons in ppt, but having problems. I used the macro recorder to create a program that changes the font of text selected to 10 point. Even though it's a simple line of code, doesn't seem to work. Thinking it's the ActiveWindow thing? Basically I want to be able to select any text box in ppt, click the button and turn it to 10 font.

Sub Font10()
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 10
End Sub

 

[cjmcma]

Never mind ... realized my macro security was set too high