イミディエイト・ウインドウに?Selection.Addressと打ち込んで[Enter]してみると、このとおり、二つの領域が「,」(カンマ)でつながれている。連続してはいるものの、矩形領域ではない。二つの矩形に分割して、それぞれのアドレスが「,」でつながれている。単一の矩形領域ならば、Addressプロパティの返り値に「,」がないということではないか!コーディング以上の考察をもとに、Function化する。Function追記メソッド名を変えました。このメソッドで判定可能な矩形は、あくまでも単一の矩形領域なので。複数の領域が組み合わさってたまたま一つの矩形になっているように見える見かけ上の矩形領域を判定するような場面も思い浮かばないので、このようにしました。見かけ上の矩形領域も含めて矩形判定するメソッドも、いづれ頭の体操としてやってみたくはありますが......。