Hello

The code I have below works very well to write the value chosen in the combobox to teh appropriate cell in a list. The problem I have is if the value chosen the next time I use the combobox is the same as the previous, nothing will be written. I have tried using an if/then/else to compare the previous cell to the value and using the Range statement below for true and false but it did not work. Can someone please offer some code options

Thank you, Jo

Dim drpdwn As DropDow
Set drpdwn = ActiveSheet.DropDowns(Application.Caller
With drpdw
Range("b1").End(xlDown).Offset(1, 0).Value = .List(.ListIndex
End Wit
End Sub