Boa-noite,

Preciso de uma ajuda com um erro...! Já tentei algumas formas de tratar esse erro com o "On Error GoTo", e não consegui resolver.
Quando eu abro a Caixa de Dialogo e logo em seguida eu clico no botão Cancelar, dá um erro dizendo que o arquivo não foi localizado.

Estou usando o seguinte código para carregar imagem:

Private Sub Image1_Click()

Dim myPictName As String
Dim lLinha As Long

myPictName = Application.GetOpenFilename(filefilter:="Picture Files,*.ico;*.bmp;*.jpg;*.jpeg;*.tif;*.tiff")

If IsNumeric(txtCodigo.Text) = True Then
Set currentFind = Worksheets("shtClientes").Range("A:A").Find(txtCodigo.Text, , _
Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)

lLinha = ActiveCell.Row
Else
lLinha = Sheets("shtClientes").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If

If myPictName <> "" Then
Me.Image1.Picture = LoadPicture(myPictName)
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Visible = False
Image1.Visible = True
Worksheets("shtClientes").Cells.Range("P" & lLinha).Value = myPictName

End If

End Sub

Se alguém puder ajudar...

Att,

Francisco