Similarly,

With ActiveSheet
.ChartObjects(1).Width = Range("F10:M30").Width
.ChartObjects(1).Height = Range("F10:M30").Height
End With

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"JE McGimpsey" wrote in message
...
One way:

With ActiveSheet
.ChartObjects(1).Top = Range("F10").Top
.ChartObjects(1).Left = Range("F10").Left
End With


In article . com,
wrote:

I was hoping there was a way to define possibly by Cell Referance
where the charts appear?