Toggle Word Wrap in selected shape or shapes

Hi John

I need to make a button that toggles word wrap in a shape, or selected shapes.
When the button is pressed, it either wraps or unwraps text (toggles between them)

HTML Code:

---

.WordWrap = False

---

This is all I have, and have tried many variants, but sadly failed.

I know how to make the button, it's just the VBA / Macro behind it I'm stuck on.

Thank you.

Maybe

Code:

---

Sub toggWW()
Dim oshp As Shape
For Each oshp In ActiveWindow.Selection.ShapeRange
If oshp.HasTextFrame Then
oshp.TextFrame.WordWrap = Not oshp.TextFrame.WordWrap
DoEvents
End If
Next
End Sub

---

Works perfect. Thanks John :) yet again you're a star!
:yes