VBAvalidation下拉列表不起作用在VBA表单中的Excel单元格中

我在这里build议的VBA表格中显示excel

我需要在下面的VBA表格中显示excel中的validation下拉列表

我试过下面的代码，它显示编译错误 。 但相同的代码在正常的Excel窗口中工作

With Me.Spreadsheet1.Range("A1").Validation .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=ValidationList .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With 

下面是错误。