ok Thanks
but this is several problem
with combobox (module)
combobox in cell T2
setting input range: $B$1:$B$50 and linked cell: $U$2
in vba module:
Sub AddRecord2()

    With Range("T2").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
        :=xlBetween, Formula1:="=SCEGLI"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputMessage = "": .InputTitle = ""
        .ErrorMessage = "": .ErrorTitle = ""
        .ShowInput = False
        .ShowError = True
    End With
End Sub
the result is:
T2 U2
pippo 1

how can I get the same result with an ActiveX control?
ciao