型を調べる

msgbox VarType(ActiveCell)