Dobrý den, mám vzorec VBA a potřebuji, aby se to samo aktualizovala.
Vyhledává obrázek když do buňky F5 pomocí svyhledat se vyhledá číslo např.: 002 tak to vyhledá obrázek
ale neaktualizuje se to samo. Můžete mi, prosím pomoci, aby to aktualizovalo samo.

Děkuji

Vzorec je:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$F$5" Then
    Dim N As String
    Const Cesta = "F:\002. Fotky Osobností\"
    N = Cells(5, 6)
    If N <> "" Then
      N = Cesta & N
      Select Case True
        Case Len(Dir(N & ".png")) > 0: Call ZmenObrazok(N & ".png")
        Case Len(Dir(N & ".jpg")) > 0: Call ZmenObrazok(N & ".jpg")
        Case Len(Dir(N & ".gif")) > 0: Call ZmenObrazok(N & ".gif")
        Case Len(Dir(N & ".bmp")) > 0: Call ZmenObrazok(N & ".bmp")
      End Select
    Else
      Shapes("imgHDD").Fill.Solid
    End If
  End If
End Sub

Private Sub ZmenObrazok(S As String)
  Shapes("imgHDD").Fill.UserPicture (S)