Hi!
In Worksheet1 I have a lot of shapes, some has same name.
I want to rename all shapes in Worksheet1 to: Picture1, Picture2, Picture3, Picture4, ..... and so on.
Please help.
Function ShapeAtActiveCell() As String
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If...