how ingore/continue past Run-time error 1004

Dim picture
Dim x
x = Dir(ThisWorkbook.Path & "\Images\" & picname & ".jpg")
If x <> "" Then
    
    Set picture = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\Images\" & picname & ".jpg")
    picture.Select
End If