怎么用Vba实现从sheet2中读取一列的数据到sheet1的下拉框

如何用Vba实现从sheet2中读取一列的数据到sheet1的下拉框
如题，一个excel里有sheet1和sheet2两个工作薄，sheet2中有A列，数据为'a','b','c';
sheet1中有A1列，是下拉框，下拉框的选项应该从sheet2的A列中选择，即有三个下拉选项'a','b','c'
请问如何实现，谢谢

------解决方案--------------------
可以手动实现
1. 菜单：插入->名称->定义->数据为'a','b','c'选中
2. 菜单：数据->有效性->允许：序列->定义名称
 可以代码实现
 Sheets("Sheet2").Select
ActiveWorkbook.Names.Add Name:="a", RefersToR1C1:="=Sheet2!R13C5:R25C5"
Sheets("Sheet1").Select
Range("A1").Select
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=a"
End With