Create a combo box in excel sheet through lotus script

hi all, i want to create combo box in excel sheet through lotus script when i am generating excel sheet.i got a code.but its not working.i am giving you the code.please tell me where is the problem…

Columns(“F:F”).Select

Range("F19").Activate

With Selection.Validation

    .Delete

    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

    xlBetween, Formula1:="1,2,3,4,5"

    .IgnoreBlank = True

    .InCellDropdown = True

    .InputTitle = ""

    .ErrorTitle = ""

    .InputMessage = ""

    .ErrorMessage = ""

    .ShowInput = True

    .ShowError = True

End With