Excel Crashing after copying comments over

[swebb5]

I have been trying to copy comments over using VBA and every time I do it will work until I open the excel file again and then it crashes. I don't know that it is a problem with the code but perhaps how the pictures are viewed. I have them as comments with the background being pictures.

lastcrtcrow = Sheets("CRTC").Cells(Rows.count, 1).End(xlUp).Row

For x = 2 To lastcrtcrow


If Sheets("CRTC").Cells(x, 3) = Sheet6.Range("D3") Then

Sheets("Search").Cells(i, 1) = "CRTC"
Sheets("Search").Cells(i, 2) = Sheets("CRTC").Cells(x, 1)
Sheets("Search").Cells(i, 3) = Sheets("CRTC").Cells(x, 2)
Sheets("Search").Cells(i, 4) = Sheets("CRTC").Cells(x, 3)
Sheets("Search").Cells(i, 5) = Sheets("CRTC").Cells(x, 4)
Sheets("Search").Cells(i, 6) = Sheets("CRTC").Cells(x, 5)
Sheets("Search").Cells(i, 7) = Sheets("CRTC").Cells(x, 6)

' 'Picture Cells
' Sheets("CRTC").Cells(x, 7).Copy
' Sheets("Search").Cells(i, 8).Select
' ActiveSheet.Paste

Sheets("Search").Cells(i, 9) = Sheets("CRTC").Cells(x, 8)
i = i + 1

End If

Next x