入力規則のリストは従来「自シート内」でないとNGであった。

2007からは別シートもOKである。記録すると単にシートの修飾が付いただけである。




Sub Macro1()

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="=Sheet2!H3:H5"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.IMEMode = xlIMEModeNoControl

.ShowInput = True

.ShowError = True

End With

End Sub

もしかすると別ブックからも?と試してみたが、それはだめそうであった。