显示已选择列表验证标准的数据验证的快捷方式

Question

我有这个VBA代码用于显示数据验证对话框，我想自动显示它，并选择了List条件并准备开始在源字段中写入，但是我的尝试到目前为止还没有工作。

Sub DataValidation_ShortCut()

   Application.Dialogs(xlDialogDataValidation).Show

End Sub