Writting and deleting content in shapes

H

holysoul

Hi,

my problem is that i have sheet on which i have an image. On thi
image, I've got "Shapes" which part of an other excel sheet grids and
want to write some content in these Shapes by specifying a range o
cell where to write in that grid.

I can do this but my problem is that whenever i write something in it
i have to open the shape (so it opens as an other excel file), write
then close it... and that is for the 15 shapes I have on my image
Doing this for some time usually crash my program because i'm out o
memory.

my question would be: can i wrtie in these shapes specifying a rang
without having to open and close each of them one a after an other????

My code is:

ActiveSheet.Shapes("Machine").Select
Selection.Verb xlOpen
Range("A4").Value = vMachine
ActiveWindow.Close

ActiveSheet.Shapes("Calandre").Select
Selection.Verb xlOpen
Range("B3").Value = vCalandre1
Range("B4").Value = vCalandre2
Range("B5").Value = vCalandre3
ActiveWindow.Close

.....
and so on!

please help!

Holysou
 
Top