Pessoal, estou usando o código abaixo para importar uma imagem para o excel.
Porém quando eu importo uma foto que esteja no computador e apago a foto do computador.. quando abro a planilha do excel, aparece o seguinte erro (conforme imagem anexo):

Sub Importar_Imagem()
On Error Resume Next
Dim CaixaDialogo, EnderecoImagem
Set CaixaDialogo = Application.FileDialog(msoFileDialogFilePicker)

With CaixaDialogo
        .Title = "Escolha um arquivo !"
        .InitialView = msoFileDialogViewPreview
        .AllowMultiSelect = False
         If .Show = -1 Then
         EnderecoImagem = .SelectedItems(1)
    End If
End With
ActiveSheet.Pictures.Insert(EnderecoImagem).Select


With Selection
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .ShapeRange.LockAspectRatio = msoFalse
    .Height = ActiveCell.Height * 1
    .Width = ActiveCell.Width * 1
    End With
End Sub

Muito obrigado pessoal.
Ótima noite a vocês.