讓長方塊隨著輸入的數字變化

kerochen

有二格儲存格，分別為 A3 ' B3,在 A3輸入10的時後，會出現一個(10,50 10,50)長方格，在B3輸入50的時後，會出現一個(50,50 50,50)的長方格…。
  Dim x, y, z As Single
     Range("A3") = x  
    Range("B3") =Y
ActiveSheet.Shapes.AddShape _
    (msoShapeRectangle, x, 50, x, 50). _
    Select
ActiveSheet.Shapes.AddShape _
    (msoShapeRectangle, y, 50,y, 50). _
    Select
但這樣一直跑不出來- - 請高手協助 謝謝

kerochen

自問自答…真的是小學生問題

x=range("A3") 就好了= =
我呆了