Napaka v kodi InsertPicFromFile

Ta koda obravnava celo celico, ki ni slikovna pot, kot pot slike in prikaže napako, da ne more uvoziti imena datoteke "besedilo v tej celici"
To je dobro delovalo pred nekaj dnevi, imate kakšen namig?

Sub InsertPicFromFile()
Dim xRg As Range
Zatemni xCell kot obseg
Dim xVal kot niz
On Error Resume Next
Nastavite xRg = Application.InputBox("Prosim, izberite celice poti datoteke:", "KuTools for Excel", Selection.Address, , , , , 8)
Če xRg ni nič, zapustite Sub
Application.ScreenUpdating = Napačno
Za vsako xCell In xRg
xVal = xCell.Value
Če je xVal <> "" Potem
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Levo, xCell.Top, xCell.Height, _
xCell.Višina
Konec Če
Naslednji
Application.ScreenUpdating = Res
End Sub