Macros paste as pictures not working

Hi,

I usually use this macro everyday and no trouble found, today it come up with error error 1004.jpg

After I click debug as below
error 1004 debug.jpg

Below is the macros I used

Please Login or Register  to view this content.

Sub copyAsImageToDailyFlash()
Dim wb As Workbook
Dim rng As Range

Set rng = ActiveWorkbook.ActiveSheet.Range("A1:F51")
Set wb = Workbooks.Add

rng.Copy
wb.ActiveSheet.Pictures.Paste
wb.SaveAs "d:\doc\REPORT F&B\Daily Cost F&B Report\Daily Flash Cost F&B " & Format(Now - 1, "dd.mm.yy") & ".xls"
Application.CutCopyMode = False
End Sub

Please Login or Register  to view this content.

As I remember I don't change the macros. Is there a way to fix this?

Regards,
Andy