使用下拉菜单中的值保存Excel工作簿（使用VBA代码）

我是宏的新手，但是对宏的工作原理有一定的了解，或者喜欢能够编写小的VBA代码。

是否可以在VBA代码内添加一些预定义的值，该值可以用作下拉值，以后可以使用，根据Google，有两种类型的响应，例如“是的，我们可以使用它”，还有一些响应说“不可能'。

我正在尝试创建报告。我必须用一些值保存它

1.预定义的值，例如（“ Analysis_Report”将是常数值）
2.下拉值（“ Cluster1”，“ Cluster2”，“其他”）-无法获取它
3.日期和时间戳
4. InputBox（“ UserName” ）

但是我无法将下拉菜单（尝试使用ComboBox）设置为我的宏。如果有人可以帮助我更正我的代码，那将非常感激。:)

下面提供了我使用的一部分宏供您参考

Sub ImporttoNew_WorkBook_and_Close ()  
Dim DT As String  
Dim wbNam As String  
Dim Path  
Dim Cluster  
Dim UserName  

Workbooks.Add  
wbName = "Analysis_Report"

DT = Format(CStr(Now), "yyyy_mm_dd_hh_mm_ss") 

Path = InputBox("Enter Path ", "Enter value") & "\"  
UserName = "_" & InputBox("Type your Name", "Enter value")   
Cluster = ComboBox1.List = Array("Cluster1", "Cluster2", "Other") **'Not Working**  

ActiveWorkbook.SaveAs Filename:=Path & Cluster & wbName & DT & UserName   
ActiveWorkbook.close   
MsgBox "Document saved"   

End Sub  

提前致谢。:)