Macro Select Same

I am trying to write a macro that'll find objects matching the currently selected object, since it's the function in 2020 is so bad.

Here's what I've collected so far from researching online (I do absolutely not know anything about VBA or coding)

And yes I am aware of JH Select Same (doesn't seem to work in 2020 though) and Select Pal from GDG.

With my own code I'll just be able to make a selection and click a button, plain and simple is what I'm aiming for.

Sub testo2()

Dim sMark

With ActiveSelection.Shapes
sMark = .Count
If sMark > 1 Then
MsgBox "Mere end et objekt er markeret"
Exit Sub
End If
End With

Set s = ActiveShape
If s Is Nothing Then
MsgBox "Markér et objekt"
Exit Sub
End If

Dim sr As ShapeRange
sh = ActiveSelection.SizeHeight
sw = ActiveSelection.SizeWidth

ActiveDocument.Unit = cdrMillimeter

Set sr = ActivePage.Shapes.FindShapes(Query:="@height = {" & sh & "mm" & "} and @width = {" & sw & "mm" & "}")
sr.CreateSelection

ActiveDocument.PreserveSelection = True
ActiveDocument.RestoreSettings
EventsEnabled = True
Optimization = False
ActiveWindow.Refresh
Application.Refresh
ActiveDocument.EndCommandGroup
Exit Sub


End Sub