View Single Post
  #2  
Old 19-03-2010, 17:49
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default ActiveSelection

Just change:

Code:
Set sr = ActiveDocument.ActiveLayer.FindShapes
to

Code:
Set sr = ActiveSelectionRange.Shapes.FindShapes
-Shelby
Reply With Quote