Setting list index of drop down list, or clearing them ?

[Lukael]

Hi,

let's say I have created a validation list in cell A1, and list is called "My list". There are numbers from 1 to 9 in that list, and first cell in range of list is blank - so index of that cell would be 0.

Then I select something else than first - blank - item from list (numbers).

How can I, with VBA, change drop-down list index back to first (blank) cell ?

Tried with this, not working :

Sub listing()

With Cells(1, 1)
.Value = Split(.Validation.Formula1, ",")(0)
End With

End Sub

Thanks for help !!