質問: 15 '2行目からデータが存在する最後の行までドロップダウンリストを作成する With WsObj.Range(WsObj.cells(2, Col), WsObj.cells(Count(i) + 1, Col)).Validation .Add Type:=xlValidateList, _ AlertStyle:=xlValidAlertStop, _ Formula1:=Join(Li, ",") End With ```
回答: 冒頭に Option.Explicit を記述すれば、 xlValidateList、xlValidAlertStop が未定義であることが分かるはずです。