J
John
I want to rename all 10 or so pictures in my worksheet...
Public Sub ReNamePics()
Dim Pic As Shape, K As Long
For Each Pic In ActiveSheet '<<<<<<<<< error here
K = K + 1
Pic.Name = "pic" & K
Next Pic
MsgBox "done"
End Sub
Public Sub ReNamePics()
Dim Pic As Shape, K As Long
For Each Pic In ActiveSheet '<<<<<<<<< error here
K = K + 1
Pic.Name = "pic" & K
Next Pic
MsgBox "done"
End Sub