Cell to macro

  • Thread starter Thread starter eLaCiD
  • Start date Start date
E

eLaCiD

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.
 
With no checking to make sure the values make sense:

Sub MakroN1()
with activesheet
.Shapes.AddShape(msoShapeRectangle, _
.range("A1").value, _
.range("A2").value, _
.range("A3").value, _
.range("A4").value).Select
end with
End Sub
 
Back
Top