Objekt-Eigenschaften mit Variable

Hallo,

ich würde gerne die Eigenschaften für Formen in Excel Ein- und Auslesen.
Bsp.
in Zeile 1 stehen meine gewünschten Eigenschaften
Name; TextFrame.Characters.Text; Height...
in Zeile 2 stehen die zugehörigen Werte zu den Eigenschaften
rectangle 1; Figur 1; 20...

Makro 1 - Schreiben der Werte in Tabelle
...
ActiveSheet.Shapes.Range(Array("rectangle 1")).Select
For sp = 1 To 10
Variable = Cells(1, sp).Value 'Namen der Eigenschaft in Zeile 1 auslesen
Cells(2, sp).Value = CallByName(Selection, Variable, VbGet) 'Wert Eigenschaft in Zeile 2 schreiben
Next
...
Makro 2 - Auslesen der Werte aus Tabelle
...
ActiveSheet.Shapes.Range(Array("rectangle 1")).Select
For sp = 1 To 10
Variable = Cells(1, sp).Value 'Namen der Eigenschaft in Zeile 1 auslesen
Value1 = Cells(2, sp).Value 'Wert der Eigenschaft in Zeile 2 auslesen
CallByName Selection, Variable, VbLet, Value1
Next
...
Wie muss mit so einer Eigenschafts-Variable umgehen, damit die Verarbeitung funktioniert?

Vielen Dank

Gruß Klaus