Delete All Pics Outside of Range

Sub Delete()

    Dim Pic As Object
    Dim lngIndex As Long
    
    With ActiveSheet
        For lngIndex = .Pictures.Count To 1 Step -1
            If .Pictures(lngIndex).TopLeftCell.Row > 5 Then
                .Pictures(lngIndex).Delete
            End If
        Next
    End With
    
End Sub