Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
simple code, for each
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pivot Table Code - Simple Code Fix? | Excel Programming | |||
Help on some simple code | Excel Programming | |||
Simple VB code | Excel Programming | |||
simple code | Excel Programming | |||
Help With Very Simple Code | Excel Programming |