invert selection macro

I found some old gms file. It looks like it's working
I will send it to you by e-mail

'Hello!

'Here is a possible solution. Surely there may be others.

Private Sub BhBp_SelectionInverse()
Dim SHAPE_BhBp As Shape

For Each SHAPE_BhBp In ActivePage.Shapes

If SHAPE_BhBp.Selected = True Then
SHAPE_BhBp.Selected = False
Else
SHAPE_BhBp.Selected = True
End If

Next
End Sub

'Greetings!