VBA Excelバリデーションリストを変数範囲

Question

Excelで検証リストを設定するためにこのコードを試しました。特定の細胞を変数に置き換えようとしていますが、固定された細胞ではうまく機能しません。

ありがとうございます。

With Selection.Validation 
    .Delete 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:="=Range(Cells(5, 15), Cells(6, 15))" 
    .IgnoreBlank = True 
    .InCellDropdown = True 
    .InputTitle = "" 
    .ErrorTitle = "" 
    .InputMessage = "" 
    .ErrorMessage = "" 
    .ShowInput = True 
    .ShowError = True 
End With 

Answer 1

これを試してみてください：

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:= "=" & Range(Cells(5, 15), Cells(6, 15)).Address 

またはこの：

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:= "=$O$5:$O$6" 

を