以下のマクロを書く。

Sub test()
Sheet1.Range("A1") = Sheet1.Range("A1") + 1
DoEvents
Application.OnTime Now(), "test"
End Sub

ものすごい勢いで Sheet1 の A1セルの値がインクリメントされていくと思う。DoEventsがないと、何も操作できなくなるので注意。そのときはESCで止めましょう。
ま、セルに入力したりするとマクロが止まってしまったりするのであまり使う機会はないかな？

近くのバーからお願いされているプロモーションビデオの配信。

そろそろネタが揃ってきそうなので着手することになると思う(仕事忙しいんだけどな^^;)

今は「Coming Soon」なビデオがおいてあるが、サーバーにアップしたMPEGをembedタグで再生するようになっていて、本番のプロモもそれでいいのだけど、ちょっといろいろ考えてみた。

ふと思いついたのがYouTube。そのバーのYouTubeアカウントを作成し、プロモーションビデオをYouTubeにアップ。お店のサイトはそれを参照して動画配信。などというのはどうだろう。それならば後々携帯への対応の際の動画変換もYouTubeに任せられるかな？と思うし、今サイトで行っている「フォトギャラリー」の延長で「ビデオギャラリー」もYouTubeを使えば楽にできそうな感じ。

ちょっとその方向で考えてみようかな？