Hi guys, i'm currently using "Ron de Bruin"'s code to copy a range into a new excel sheet and it gets emailed out with Outlook.

What I want to do is to include any picture/image within the range copied. The current code does not copy any image.
I know the problem is with this part of the code, it only pastes as value, but i need to include all with image first then copy as value.

Source.Copy
With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
Application.CutCopyMode = False
End With

Thanks for your help!