Thanks for helping out. When I run your code I get the following error

"Invalid procedure call or agrument"

The error points to
Set objShape = Selection.ShapeRange(1)


I get an error using either version of your code. VBA is going to kill me...