未选择任何内容时提供msgbox

Question

我编写了以下代码，将我选择的所有文本框对齐到右边。

Sub alignFunction(direction)

Dim oSel As ShapeRange
Set oSel = ActiveWindow.Selection.ShapeRange

With oSel
 .TextFrame.TextRange.Paragraphs.ParagraphFormat.Alignment = direction
End With

End Sub

Sub AlignRight()
 alignFunction (ppAlignRight)
End Sub

但是如果我没有选择任何东西它不起作用并给出错误。我想要包含一些东西，所以我会弹出一个“请选择任何东西”，以防我没有选择任何东西。

关于如何做到这一点的任何想法？