Questo codice tratta anche la cella del percorso non dell'immagine come percorso dell'immagine e mostra l'errore che non è stato possibile importare il nome del file "testo in quella cella"
Funzionava molto prima di alcuni giorni, qualche indizio?

Sub InserisciPicFromFile()
Dim xRg come intervallo
Dim xCell come intervallo
Dim xVal come stringa
On Error Resume Next
Imposta xRg = Application.InputBox("Seleziona le celle del percorso del file:", "KuTools for Excel", Selection.Address, , , , , 8)
Se xRg non è niente, esci da Sub
Application.ScreenUpdating = False
Per ogni xCell In xRg
xVal = xCella.Valore
Se xVal <> "" Allora
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Sinistra, xCell.Top, xCell.Height, _
xCell.Altezza
End If
Avanti
Application.ScreenUpdating = True
End Sub