コードのバグ InsertPicFromFile

このコードは、画像パス以外のセルも画像パスとして扱い、ファイル名「そのセル内のテキスト」をインポートできなかったというエラーを表示します。
これは数日前まではうまく機能していましたが、何か手がかりはありますか?

サブ InsertPicFromFile()
範囲としての薄暗いxRg
xCellAsRangeを暗くする
文字列としての薄暗いxVal
エラーで次の再開
Set xRg = Application.InputBox("ファイル パスのセルを選択してください:", "KuTools for Excel", Selection.Address, , , , , 8)
xRgが何もない場合は、Subを終了します
Application.ScreenUpdating = False
xRgの各xCellについて
xVal = xCell.Value
If xVal <> "" then
ActiveSheet.Shapes.AddPicture xCell.Value、msoFalse、msoTrue、_
xCell.Offset(0, 1).Left、xCell.Top、xCell.Height、_
xセルの高さ
終了する場合
Next
Application.ScreenUpdating = True
End Subの