Speeding up image inserts [vba]

[DataBlake]

Sub URLPictureInsert()
    Dim Pshp As Shape
    Dim i As Long
    Dim lastRow As Long
    Dim urlRng As Range
    Dim trgtRng As Range
    
    
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastRow

   Set urlRng = Range("B" & i)
   Set trgtRng = Range("C" & i)

If urlRng = "" Then Range("H" & i).Value = 0
If urlRng = "" Then GoTo lastline
    
        filenam = urlRng
        On Error Resume Next
        ActiveSheet.Pictures.Insert(filenam).Select
        On Error Resume Next
        Set Pshp = Selection.ShapeRange.Item(1)
        If Pshp Is Nothing Then GoTo lab
        Range("H" & i).Value = 1
    With Pshp
            .LockAspectRatio = msoFalse
            .Width = 15
            .Height = 15
            .Top = trgtRng.Top
            .Left = trgtRng.Left
    End With
lab:
    If Pshp Is Nothing Then Range("H" & i).Value = 0
    Set Pshp = Nothing
lastline:
    Next i
End Sub

is there anything i can do to this code that will make it go faster?
i understand that deleting the ".select" would make it faster, but i'm unsure of what the alternative is?
and how much time would screen updating = false save?

 

[Domenic]

i understand that deleting the ".select" would make it faster, but i'm unsure of what the alternative is?

Try replacing...

        On Error Resume Next
        ActiveSheet.Pictures.Insert(filenam).Select
        On Error Resume Next
        Set Pshp = Selection.ShapeRange.Item(1)

with

        On Error Resume Next
        Set Pshp = ActiveSheet.Pictures.Insert(filenam)
        On Error GoTo 0

and how much time would screen updating = false save?

I don't know, but it should help.

 

[DataBlake]

I don't know, but it should help.

I will try this out on monday and let you know the results. currently it is running at 3-6 seconds on average per line.
so about an hour and 15 minutes per 1000 lines
Will have an update with new times after the weekend.

 

[Domenic]

Hope it helps, cheers!