Drop down menu needs work

[RLPeloquin]

The code works fine but when I select "Site1" for example then return to "Home" the drop down stays open. I'd like for it to show "Home" once returning to "Home". Maybe this picture will help

Private Sub ComboBox1_Change()
'Updateby Extendoffice
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
ComboBox1.AddItem xSheet.Name
Next xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

 

[My Aswer Is This]

I assume what your wanting is when you select a value in the Combobox you then want the Combobox to show nothing in the Combobox selection Box
If so use a script like this:

Private Sub ComboBox1_Click()
'Modified  5/5/2021  12:40:58 PM  EDT
Range("G1").Value = ComboBox1.Value
ComboBox1.ListIndex = -1
End Sub

 

[RLPeloquin]

I assume what your wanting is when you select a value in the Combobox you then want the Combobox to show nothing in the Combobox selection Box
If so use a script like this:

Private Sub ComboBox1_Click()
'Modified  5/5/2021  12:40:58 PM  EDT
Range("G1").Value = ComboBox1.Value
ComboBox1.ListIndex = -1
End Sub

I've fixed part of the original post. The only problem I'm having now is to show "Select Site Number" in the Combobox once "Home" Tab is selected and not any Sites

 

[Mackeral]

Is this approximately what you are looking for? Or is something like this too complicated?

 

[RLPeloquin]

Is this approximately what you are looking for? Or is something like this too complicated?

This is my corrected Code: This works for me. Thanks for your help
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
'ComboBox1.ListIndex = -1 'Added This Line
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
ComboBox1.AddItem xSheet.Name
Next xSheet

End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'Deleted this Sub :
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub