お疲れ様です、廉です。 気分を害されなくて良かったです＾＾ msgbox "****" & ubound(strValAry) のところは、多分msgbox "****" & ubound(valArry)ですよね？ こちらでは、普通にうまく行くのですが・・・＾＾； Msgbox "****" & Ubound(strValAry) '← ここでエラー とありますが、エラーになりませんが(T-T) こちらはR4.6なので分かりませんが、Notes6だから？ （そんなまさか）