If you have bunch to do try this.

Public Sub ReNamePics()
Dim Pic As Shape, K As Long
For Each Pic In Selection.ShapeRange
K = K + 1
Pic.Name = "Log" & K
Next Pic
End Sub


Gord Dibben MS Excel MVP

On Mon, 26 May 2008 03:07:01 -0700, Henk wrote:

Thanks Norm. It works!

"Norman Jones" wrote:

Hi Henk,

Try something like:

ActiveSheet.Pictures("Picture 1").Name = "Log 01"



---
Regards.
Norman


"Henk" wrote in message
...
Is it possible to change the name of pictures in a workbook? E.g. rename
Picture 52 (name given by Excel itself) to Log 01.

Regards