man kan skriva om lite i din kod så borde det fungera, gör så här:
markera din rektangel
kopiera det som står i namnrutan, tex Rektangel 1
öppna din vbaeditor (ctrl+F11)
skriv in i detta i början av ditt makro:
ActiveSheet.shapes("rektangel 1").copy
byt ut rektangel 1 till vad din rektangel heter
lycka till