Fix Vba script

I need to fix this script Sub URLPictureInsert() 'Updateby Extendoffice 20161116 Dim Pshp As Shape Dim xRg As Range Dim xCol As Long On Error Resume Next [login to view URL] = False Set Rng = [login to view URL]("Please select the url cells:", "KuTools for excel", [login to view URL], , , , , 8) For Each cell In Rng filenam = cell [login to view URL](filenam).Select Set Pshp = [login to view URL](1) If Pshp Is Nothing Then GoTo lab xCol = [login to view URL] + 1 Set xRg = Cells([login to view URL], xCol) With Pshp .LockAspectRatio = msoFalse .Width = 100 .Height = 100 .Top = [login to view URL] + ([login to view URL] - .Height) / 2 .Left = [login to view URL] + ([login to view URL] - .Width) / 2 End With lab: Set Pshp = Nothing Range("e2").Select Next [login to view URL] = True End Sub The goal is show the image located in the path indicated in F [login to view URL] in the cell E [login to view URL] and IF the image there is not, the script should check the Cell G [login to view URL] Cechk file in attachment