Glad it works. Yes, the delay is a bit of an issue. It's possible to improve the delay using a different technique, but I don't really have the time to look into it that far - if it works well enough for you though that's all that matters!



As for the UserForm_Initialize code try the following:


Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
    Me.Controls("ComboBox" & i).Clear
Next i
End Sub