Boa tarde pessoal

Tenho uma planilha de procura de imagens com o código vba (conforme abaixo), porém este código só funciona se e eu digitar na célula, se eu fazer a célula ser alterada por formula ele não busca a fotos.
Alguém pode verificar
Obrigado

Segue VBA

Private Sub Worksheet_Change(ByVal Target As Range)
'Lembrando que target é a referência para a célula modificada
'verifica se a célula que contém o número do cliente foi modificada
'Nesse caso é a célula B1
If Target.Row = 2 And Target.Column = 3 Then
'Carrega imagem de acordo com o caminho indicado na procura vertical
'A função LoadPicture carrega um caminho de imagem na propriedade Picture
'O seu uso é necessário
imgfoto.Picture = LoadPicture(Range("B4").Value)
imgfoto2.Picture = LoadPicture(Range("B5").Value)
End If
End Sub