New sheet using comboBox name

[mysticmario]

Hi, can someone help me solve this issue?
I have external data source from html website which creates a table of projects names, which i then use within my excel.
Now I want to create a button that creates a new sheet using a sheet template. i also want to pick the new sheet name usign the open projects dropdown list. For some reason I cannot populate my combobox. here's the code:

Private Sub OpenProjects_Click()
Me.OpenProjects.RowSource = "=OTWARTE PROJEKTY!B2:B30"
End Sub
Option Explicit
Private Sub CreateNewForm_Click()
Dim ans As String
 ans = Me.OpenProjects.Value
 Sheets("Szablon Faktury").Copy After:=Sheets(Sheets.Count)
 ActiveSheet.Name = ans
 Me.OpenProjects.Value = ""
End Sub

Please help I'm stuck for 2 hours now

 

[mysticmario]

I fixed it by using rowSource in properties window.