ActiveShape

Hello,
Thank You for this answer!
Please, write a code to Check if activeShape is null

Now I use this code:

Sub Check_If_Selected()
On Error GoTo noSelected
If ActiveShape.Selected Then
MsgBox "ActiveShape.CenterX = " & ActiveShape.CenterX
Exit Sub
End If
noSelected:
MsgBox "No Shape is selected"
End Sub

Greetings!

If ActiveShape Is Nothing Then
'TODO
End If

Prefect,
Thank You
Greetings!