VBA Adding Data validation dropdown does not work on second run

[szita2000]

Hi All.

This is a bit of mystery.
In a macro I place Data validation Dropdown in to a range.

I am using this bit of code for this:

'Adding the Data validation listboxes to ***listrange***
                
                With listrange.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=rngTipus"
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With

When I run the macro for the first time. It places the dropdowns O.K.
If I clear everything and rerun the macro the second time I do not have dropdowns in the cells.

The things I checked:

1. I put ActiveX buttons on the sheet at the same time (actually before this snippet goes) - They don't seem to be taking focus
2. I checked if Application.EnableEvents is TRUE- It is
3. I checked Application.ScreenUpdating is TRUE - It is
4. I commented out all Screenupdating and manual calculation from the code

Wonder if I should get rid of the .delete in the listrange.Validation?...

Let me know if you want to see the rest of the code.

Thanks

 

[RoryA]

No, you should keep the Delete.

Is there any error handling that would be hiding errors?

 

[szita2000]

No, you should keep the Delete.

Is there any error handling that would be hiding errors?

Hi Rory.
Thanks for the quick reply.

No. there is no error handling, or resume next

However, I added DoEvents at the end of the dropdown creation and It seems that it worked.

Thanks for the help though.