Sub test2()
Dim pic As Picture

Range("Q20:AD23").Copy

Set pic = ActiveSheet.Pictures.Paste(Link:=True)
With pic
.Left = Range("A20").Left ' or simply 0 if Col-A
.Top = Range("A20").Top
.ShapeRange.Fill.Visible = msoTrue
End With

End Sub

and over the top of A20:O26 I want to have
Q20:AD23 showing;

Are you sure you don't mean "over A20:N23", assuming all same row/col sizes.

Regards,
Peter T

"John Keith" wrote in message
...
I know I have done this before, but I cant remember how I got there...

I have a range of cells that need to be shown below another range of
cells.
The Range of cells that will be shown in the shape/pic have rows and
columns
that are of a different size than the ones that it will be placed on.
This
is so that I can print one page landscape showing the main range and then
3
smaller ranges below.

The alternate range is diagonally down to the right of the main range so
the
rows and columns can be sized to properly display the headings and allow
the
correct width to show the data.

How do I create the shape/picture that refers to the alternate range of
cells?
I.E. the main range is A4:O18 and over the top of A20:O26 I want to have
Q20:AD23 showing; this way the print range can be A4:O26 to show 1 page
properly formatted. The shape size will have to be tweaked to prevent any
odd stretching of the image.
--
Regards,
John