Redigere i gammel makro

Jeg har en fil hvori jeg indtaster et varenr. i celle A1, hvor der så fremkommer et billede i et kontrolelement.

Er det muligt at tilrette nedenstående makro til at vise et blankt kontrolelement, hvis der ikke findes et billede i foto databasen?

Problemet er at hvis billedet ikke findes, vises billedet fra forrige varenr. og det givet mig en del rod.


Option Explicit
Dim fname, ftype, ffolder, cell As String
Dim FSO As Object

Private Sub Worksheet_Change(ByVal Target As Range)

'Skriv mappe og filtype herunder:
ffolder = "P:\HER\Detail Planlægning\Produktionsplanlægning\Foodservice\Foto database (recept)\"
ftype = ".jpg"

'Vælg hvilken celle, der skal skrives filnavn i:
cell = "A1"


If Not Intersect(Target, Range(cell)) Is Nothing Then

Set FSO = CreateObject("Scripting.Filesystemobject")

fname = Range(cell).Value

'Billede indsættes når det er checket om filen eksisterer!
If FSO.fileexists(ffolder & fname & ftype) Then
Ark1.Image1.Picture = LoadPicture(ffolder & fname & ftype)
Else
MsgBox "Filen " & ffolder & fname & ftype & " eksisterer ikke.", vbCritical
End If

End If

End Sub