>>104
どこが失礼でしょうか？
94の「かっこ悪い」の意味が分かりません。
シンプルに・・・だったら分からなくもないです。

【ここ重要】
最悪なのは、かっこ悪いといって書き直した↓が正常に動作しないこと。
If IsNumeric(Range("B2").Value) Then Range("B2").Interior.Color = 65535

97は質問に対し「で行けるな」と書いたわけですが、これで分かるのは
書いた本人だけではないでしょうか？
また、105と106は貴方の自演ですね？
こんな自演をしていて恥ずかしくないですか？