Hallo all

Is there a way content from cell (for example content of A1, A2, A3 and A4) put in macro :

Sub MakroN1()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, A1, A2, A3, A4). _
Select
End Sub

In short, as you can see, intent is that cell contents through macro command draw a square.