fejl i VBA koden?

underlig periodisk fejl i vba
jeg har følgende kode i excel:


Sub test()

Dim p As Object
Dim i As String
i = 1
Do While i < 10
    Worksheets("sheet1").Select
   
    Range("a1").Select
   
   
    Selection.Copy
   
   
    Set p = ActiveSheet.Pictures.Paste
   

i = i + 1
Loop

End Sub

problemet er at nogle gange kommer der en fejl i excel der siger

run-time error 1004
microsoft office excel cannot paste the data

ved

"Set p =ActiveSheet.Pictures.Paste"

og nogle gange virker det.
nogle ideer?