文字をプルプル

いつもお世話になっている ↓ こちらから丸パクリして着想を得て、
www.excel-chunchun.com

こんなものを作ってみた。

Sub 文字をプルプル()
    Dim i As Long
        Selection.Orientation = 1
        Selection = "計算中だよ＾＾"
        For i = 1 To 100
            Selection.Orientation = Selection.Orientation * -1
            Application.Wait [Now() + "00:00:00.1"]
        Next
        Selection.Orientation = 0
        Selection = "計算かんりょう＾＾！"
End Sub

ちなみに、業務では全く役に立ちません＾＾；