Private sub running twice

[BoboBarlow]

Hi all,

I have a drop down box selecting from a list of dates (Oct-13 - Dec-14) that I need to display as "mmm-yy" to the end user so have written the following code to format when a date is selected:

Private Sub SDatePicker_Change()
    SDatePicker.Value = Format(SDatePicker.Value, "mmm-yy")
End Sub

For some reason the code seems to run through itself twice and I can't figure out why. The result of this is an incorrect date being displayed (strangely when I select 'Jan-14' for example, the result is 'Jan-13'.

Any thoughts?

Thanks in advance

John

EDIT*

Perhaps I should point out that the default formatting of the date values seems to be in number format e.g. 41976.

 

[VoG]

Try

Private Sub SDatePicker_Change()
Application.EnableEvents = False
    SDatePicker.Value = Format(SDatePicker.Value, "mmm-yy")
Application.EnableEvents = True
End Sub

 

[BoboBarlow]

Hi Peter, thanks for replying. Unfortunately it hasn't worked.

The weird thing is, it only seems to be happening on two drop down boxes I have relating to 'start' and 'end' dates, I have another that selects names from a list but this doesn't happen.

 

[VoG]

You may need to look here Suppressing Events In UserForms