Help me fix "Paste method of Worksheet class failed" Error :(

[rhaas128]

Below is the code I have for removing shapes and then copy/paste an image from one sheet to another in a specific cell. I am inconsistently getting the error 1004 paste method of worksheet class failed error. Any recommendations are greatly appreciated!

Public Sub fillPicture(inputValue)
    
    Dim shownPicture
    Dim listedPicture
    
    For Each shownPicture In Worksheets(3).Shapes
        If shownPicture.Type = msoPicture Then
            shownPicture.Delete
        End If
    Next shownPicture
    
    For Each listedPicture In Worksheets(8).Shapes
        If LCase(Trim(listedPicture.Name)) = LCase(Trim(inputValue)) And listedPicture.Type = msoPicture Then
            
            listedPicture.Copy
            Worksheets(3).Paste Worksheets(3).Cells(27, 1)
            
        End If
        
    Next listedPicture
End Sub

 

[ChrisBM]

Try using Worksheets(3).Cells(27,1).Paste

 

[rhaas128]

That gives me run-time error 438 - Object doesn't support this property or method.

 

[Ragnar1211]

Replaces this:

If LCase(Trim(listedPicture.Name)) = LCase(Trim(inputValue)) And listedPicture.Type = msoPicture Then
      listedPicture.Copy
      Worksheets(3).Paste Worksheets(3).Cells(27, 1)
End If

With this:

If LCase(Trim(listedPicture.Name)) = LCase(Trim(inputValue)) And listedPicture.Type = msoPicture Then
    listedPicture.Copy Worksheets(3).Cells(27, 1)
    Application.CutCopyMode = False
End If

 

[rhaas128]

Ragnar,

Error 450- Wrong number of arguments or invalid property assignment.

 

[rhaas128]

Any other suggestions? I have been searching Google and trying different things but can't seem to get any of them to not produce an error.

 

[rhaas128]

Would I need to use a selection before pasting the image? I have tried a few variations of that as well, but not having any luck. Perhaps someone with more knowldege may be able to provide guidance...