prova cosi

Private Sub Worksheet_Change(ByVal Target As Range)

Dim sPath As String
Dim sExt As String
Dim sTotal As String
Dim rng As String

On Error Goto ERR

sPath = '"L:\Documenti\esempio"
rng = Range("A1").Value
Goto XIT

ERR:
rng = "Error"

XIT:
sExt = ".jpg"
sTotal = sPath & rng & sExt
If rng = "" Then rng = "Error"
Image1.Picture = LoadPicture(sTotal)

End Sub
ti ho inviato una mail
ciao