Este código trata incluso la celda de ruta que no es de imagen como ruta de imagen y apuntala el error de que no pudo importar el nombre de archivo "texto en esa celda"
Esto solía funcionar bien antes de algunos días, ¿alguna pista?

Sub InsertarPicFromFile()
Dim xRg como rango
Dim xCell como rango
Dim xVal como cadena
On Error Resume Next
Establezca xRg = Application.InputBox ("Seleccione las celdas de la ruta del archivo:", "KuTools for Excel", Selection.Address, , , , , 8)
Si xRg no es nada, salga de Sub
Application.ScreenUpdating = False
Para cada xCell en xRg
xVal = xCelda.Valor
Si xVal <> "" Entonces
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Izquierda, xCell.Superior, xCell.Altura, _
xCell.Altura
Si terminar
Siguiente
Application.ScreenUpdating = True
End Sub