Ignorer fejlbesked

Prøv med

Sub Makro3()
On Error Goto Errhand

Dim x As Object
Dim FilNavn As String
    FilNavn = Worksheets("jytte").Range("A3").Value & ".bmp"
    Set x = Worksheets("jytte").Pictures.Insert("F:\EM\BITMAP\" & FilNavn)
    x.Top = Range("I8").Top
    x.Left = Range("I8").Left

Exit sub
Errhand:
If Err.number = ????  Then'Det rigtige fejlnummer
FilNavn = Worksheets("jytte").Range("A3").Value & ".bmp"
    Set x = Worksheets("jytte").Pictures.Insert("F:\EM\BITMAP\manglerbillede.bmp")
    x.Top = Range("I8").Top
    x.Left = Range("I8").Left
end if

End Sub

Du skal erstatte spørgsmålstegnene med det rigtige fejlnummer. Måske 1004?

Du kan anvende DIR funktionen til at teste om filen findes inden du Set'er den lig med en fil.

Dir funktionen returnerer filnavnet, hvis den kan finde det på den angivne sti. Hvis ikke den findes returneres blot ""

Eller :

Sub Makro3()
Dim x As Object
Dim FilNavn As String
    FilNavn = Worksheets("jytte").Range("A3").Value & ".bmp"
With Application.FileSearch
    .LookIn = "F:\EM\BITMAP"
    .FileName = FilNavn
    .Execute
    If .Execute() > 0 Then
        Set x = Worksheets("jytte").Pictures.Insert("F:\EM\BITMAP\" & FilNavn)
        x.Top = Range("I8").Top
        x.Left = Range("I8").Left
    Else
        Set x = Worksheets("jytte").Pictures.Insert  _
                        ("F:\EM\BITMAP\manglerbillede.bmp")
        x.Top = Range("I8").Top
        x.Left = Range("I8").Left
    End If
End With
End Sub

Kommer nok lige først til at kigge videre på det i morgen tidlig. Beklager..

jkrons prøvede jeg ikke, men aheiss forslag virkede perfekt.

Jeg glemte vist at sende mit forslag som svar!