ComboBox ghost

I have a two worksheets in the workbook I am working on. The first worksheet contains a combo box. The second worksheet contains the data used in the combo box. Everything works fine except if I choose a website in the combo box and then click on the Database button, there is what I am calling a 'ghost' on the database workbook. It will not go away until you single click on the ghost and then it disappears. I have been inserting code for screenupdating true and false in multiple locations in my code but nothing has worked.

If anyone can help, it would be greatly appreciated.My Password Vault -For Others.xlsm

It's not clear to me what you mean by this "ghost". Perhaps a screenshot pointing out would help.

As a side question from me, why have you decided to disable the X to close the form? I design and build tools like this for a living and would never do that. I inherited a tool that had that functionality built in and it was the first thing I removed when redeveloping it. As computer users we're conditioned to use that top right corner to close things down, so doing so then being shown a message saying "don't do it this way you're used to doing it, do it this other awkward way instead" is an annoyance to the end user.
If it's that some action can be performed whilst clicking your close button then all that can be handled in the query close event of the userform itself and you'll have happy end users. Well, happier...

BSB

The below sub is causing the ghost

Private Sub cboFindLink_Change()
cboFindLink.ListFillRange = "DropDownList"
cboFindLink.DropDown
End Sub

Is it necessary to have this for a specific reason?

As for my comment on the close button, rather than have the message box on the X and a separate close button that just saves the file and closes the form, you could just use the below sub and it will do the same.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Save
End Sub

BSB

Thank you. You are correct about the offending code. I wanted the dropdown list to be filtered as the user typed characters of the website. I found this code worked using the OnChange event. If there is a better way of having this work as intended, your input would be valuable. And, thank you for the UserForm_QueryClose event coding.

Give this a try:
1) Create a standard module and call it Variables (or something similar)
2) In that module add the below line

Public blHideDropDown As Boolean

3) Add the below line to the start of your GoToDatabase sub

blHideDropDown = True

4) Add the below line to the end of your GoToDatabase sub

blHideDropDown = False

5) Change your combobox change event code to the below

Private Sub cboFindLink_Change()
    If blHideDropDown = False Then
        cboFindLink.ListFillRange = "DropDownList"
        cboFindLink.DropDown
    End If
End Sub

This should only run the change event when you want it to and prevent it running when you don't, which should stop the ghost showing up.

BSB

Your fix worked perfectly. Thank you so much. Your help is very much appreciated.

Glad I could help and thanks for the feedback.

Give us a shout if you need more help with the project.

BSB