Excel でシート内のシェイプをすべて選択する方法

Public Sub シェイプをすべて選択()
    Dim xlsSheet        As Excel.Worksheet
    Dim xls
    
    Set xlsSheet = ActiveWorkbook.ActiveSheet
    If xlsSheet.Shapes.Count > 0 Then
        xlsSheet.Shapes.SelectAll
    Else
        MsgBox "シェイプがありません。", vbInformation, "シェイプをすべて選択"
    End If
End Sub