【VBA】AddPictureで挿入した画像が即時反映されない（ファイルを閉じる→開くと反映されてる）

Question

■実施環境
mac エクセルVBA

■現状
下記のコードを実行すると、ダイアログが表示され、画像を選択することができます。
画像を選択するとA1セルに画像が表示されるはずなのですが、すぐに表示されず一度ファイルを閉じて開くと表示されています。

■実現したいこと
画像を選択するとすぐに画像が表示されるようにしたいです。

Sub PastePicture1()

     ' ファイル選択ダイアログで画像ファイルを選択する
    vntFileName = _
        Application.GetOpenFilename( _
            Title:="画像を選択", MultiSelect:=False _
        )
        
    ' ファイルパスがあれば
    If Len(vntFileName) > 0 Then
        
        'MsgBox vntFileName
        
        Set targetCell = Range(" A1:A1")
        targetCell.Select
        
        ' シェイプを作成し，画像を挿入
        Set myShape = ActiveSheet.Shapes.AddPicture( _
              FileName:=vntFileName, _
              LinkToFile:=False, _
              SaveWithDocument:=True, _
              Left:=targetCell.Left, _
              Top:=targetCell.Top, _
              Width:=targetCell.Width, _
              Height:=targetCell.Height _
        )
              
    End If
    
End Sub

Comments

[mcy]

PCの再起動を行ったら正常に動作しました！
ご回答いただいた皆様ありがとうございました。

Answer 1

endifのあとに
Application.ScreenUpdating = True
ではいかがでしょうか？

Answer 2

VBA Excelでの画像インポート（shapes.addpicture、pictures.insert）がうまくいかない
excel2016 for macで画像ファイルを表示させると、excelがクラッシュする
Excel 2019 for Mac VBA での画像の扱い

上手く行かないという記事はあるけど、解決策はなさそう？
Macでないので試せません＾＾；

Answer 3

こんな記事に行き当たりました。手掛かりになるとよいのですが。
Dir関数やAPIのGetOpenFileNameでフォルダがロックされる