If IsNumeric(Range("B2").Value) Then Range("B2").Interior.Color = 65535と書いて
B2に100と書いても'100と書いても黄色くなるのが気になる