Searching for shapes & moving them ???? 1

[ribhead]

I have written a macro that will allow the user to enter text into rectangles that are already created then paste them in the cell they have already selected. My problem is when I paste the rectangles they don't want to cooperatre by fitting neatly in the cell. Is there a way after I paste to move it(tweak) somehow? If not should I try and use a For Next loop to find all the shapes? Because I'm not sure what that would look like either. Very Very Frustrating. Any help would be greatly appreciated.

I may not be very smart but I'm sure wirey!!!!

 

[SkipVought]

Here's the routine to ungroup all shapes...

Sub UngroupShapes()
    On Error Resume Next
    For Each sh In ActiveSheet.Shapes
        Set gr = sh.GroupItems
        If Not gr Is Nothing Then
            sh.Ungroup
        End If
    Next
End Sub

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[ribhead]

Thanks a lot guys. Very good info.

I may not be very smart but I'm sure wirey!!!!