イッツキャドコミュニティ

そもそもサンプルコードの出典元がわからないのですが、以下のコードは試されましたか？

URL を書き込めないみたいなので、「文書番号 : S3-0004」でググってみてください。

こちらのエクセルでは普通に動きましたよ。