> ws.Range("a65536").End(xlup).Selectのxlupでコンパイルエラーになります。xlup の定数が宣言されていないからです。事前バインディングで使用するか? 定数を宣言して使用して下さい。Const xlUp = -4162但し、これで何がしたいのかは、よく解りません。