Copy Picure to new workbook

[mar050703]

Hi

I have the following code:

'Sub to Save Deal Sheet to a New File
Debug.Print


Dim ws As Worksheet, wb As Workbook
Dim Fnme As String

Sheets("Deal Sheet").Select
Set ws = ActiveSheet
Set wb = Workbooks.Add(xlWBATWorksheet)

ws.Range("A1:E41").Copy
wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues
wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
wb.Sheets(1).Columns("B:E").AutoFit


Fnme = ActiveSheet.[E3]
ActiveWorkbook.SaveAs "H:\SFM\Silverstone Approved Cars\Admin\Deal Sheets\" & Fnme & ".xlsx"
ActiveWorkbook.Close

However I have noticed that this is not copying across a picture, (Picture 2).
Please can someone help to copy the picture too.

Thanks in advance for your help

 

[SkipVought]

Hi

Is A1:E41 the range for all the data on the sheet? If so copy the sheet rather than the range.

 

[combo]

Add full Paste first:
wb.Sheets(1).Range("A1").Paste
wb.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues


combo