VBA Excel Macro - Picture attached to Cell (insert) - Not link

Gstg72 

Refactoring code from Nikolino, you can have some more options, although given we don't know what you wanna do with the pictures later, it will lack some functionality you are looking after (the sort thing...).

Sub insertPicture()
    Dim owsh As Excel.Worksheet
    Dim rng As Excel.Range
    Dim oShp As Excel.Shape
    Dim strFile As String
    
    strFile = Application.GetOpenFilename("Graphic files (*.jpg; *.gif; *.png)," & "*.jpg; *.gif; *.png")
    If strFile <> CStr(False) Then
        Set owsh = ActiveSheet
        With owsh
            On Error Resume Next
            Set rng = Application.InputBox("Select target cell:", "Insert Picture", ActiveCell.Address, Type:=8)
            On Error GoTo 0
            If Not rng Is Nothing Then
                Set oShp = .Shapes.AddShape(msoShapeRectangle, rng(1, 1).Left, rng(1, 1).Top, rng(1, 1).Width, rng(1, 1).Height)
                With oShp
'!!!!! alternative                    
                    .Visible = msoFalse
                    With .Fill 
                        .Visible = msoTrue
                        .UserPicture strFile
                        .TextureTile = msoFalse
                    End With
                    
                    With .TextFrame2.TextRange.Characters
                        With .Font
                            .Size = 11
                            With .Fill
                                .Visible = msoTrue
                                With .ForeColor
                                    .ObjectThemeColor = msoThemeColorLight1
                                    .TintAndShade = 0
                                    .Brightness = 0
                                End With
'!!!!! alternative                    
                                .Transparency = 1 ' ranges({0 = solid} to {1 = hidden})
                                .Solid
                            End With
                        End With
                        With .ParagraphFormat
                            .FirstLineIndent = 0
                            .Alignment = msoAlignLeft
                        End With
                        .Text = strFile
                    End With
'!!!!! alternative                    
                    '.AlternativeText = strFile
                End With
                
'!!!!! alternative                    
                '.Hyperlinks.Add Anchor:=oShp, Address:=strFile
                
                rng(1, 1).FormulaR1C1 = strFile
            End If
        End With
    End If
    
    Set rng = Nothing
    Set oShp = Nothing
    Set owsh = Nothing
End Sub

As you can see, the picture is "inserted" in the workbook, so it can be referred. I have hidden the image inserted

You have some options to continue with the sort issue, as the shapes will be not linked to the cells (so they will not sort):

1. Use the inserted cell as a sorting index
2. Use an inside text as reference (you can hide the text with the transparency value)
3. Use the AlternativeText as reference (commented code)
4. Use the Hyperlink (commented code)
5. ... others to explore

All the alternatives you have are marked with the '!!!!! alternative  tag, so you can choose which one better fits your needings.

Kind regards