I have water marks created using word art on a number of sheets in a workbook.
I want to write a procedure to change the text in all the shapes in the work book.
I have tried writing a procedure seems to not work can someone tell me whats wrong.
Set myDocument = ActiveWorkbook
Selection.ShapeRange.TextEffect.Text = Worksheets(1).Range("A1").Value
I would appreciate any help.