Macro to create drop down menuin a cell

**HSV** · 05-09-2013, 01:28 PM

Hello,

Your code works so good to me

Sub Add_Drop_Down_Menu_Cell()
With ThisWorkbook.Sheets("Filtered Data").Range("B5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=menuList"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

**Zeos6** · 05-09-2013, 01:37 PM

I am not sure what you mean by your post Harry. In the code you posted menuList is not defined. I pass it as a parameter to the sub. I also get an error on the .Add part.