Drop Down box in Userform to autopopulate a list from sheet14

[Patriot2879]

HI Please can you help me i have a dropdown box in a userform and sheet14 i have a list of names, in the combobox named 'MTBox' i want this to autopopulate with the names in Sheet14, i have done the following code below that i found on the internet but this doesn't do anything, no errors or no list populated, please can yo uhelp me on this, i am pretty new to VBA coding, and your help is greatly appreciated.

[B]Private Sub MTBox_Change()

With Range("MTBox_Change").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=Sheet14!A1:A60"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub[/B]

 

[AlphaFrog]

That code does not do what you think it does.

This will populate the Combobox with the names from Sheet14 Column A. It does it when the userform is initialized.

Private Sub UserForm_Initialize()
    
    MTBox.RowSource = ""
    MTBox.List = Sheets("Sheet14").Range("A1", Sheets("Sheet14").Range("A" & Rows.Count).End(xlUp)).Value
    
End Sub

 

[Patriot2879]

brilliant thank you that works great much appreciated thank you