Default value for ActiveX combo box when opening spreadsheet

[jeff_cp]

I have a spreadsheet with an ActiveX combo box in cell B5 that is linked to cell C5. I have a named range on another worksheet called "Parts_Entered" and my ListFillRange is pointed to it.

When I select a value from the drop down list in B5, I'm populating a date range in cells B6 and B7 based off the value in C5. I'd like the spreadsheet to open with cell B5 defaulted to "Today". Currently, cells B6 and B7 default to the correct dates so it's defaulting to "Today" (with a value of 0 in cell C5) but it's not showing the word "Today" in cell B5 when I open the spreadsheet.

Please help . Thanks!

 

[DanteAmor]

check my test file

inventory.xlsm

drive.google.com

 

[jeff_cp]

Ok I got it! I had to use ListIndex = 0 instead of Value = "Today" :

Private Sub Workbook_Open()
Dim TheConnectionName As String
For Each objWBConnect In ThisWorkbook.Connections
TheConnectionName = objWBConnect.Name
ThisWorkbook.Connections.Item(TheConnectionName).ODBCConnection.Connection = "ODBC;DSN=CHECKMATE"
Next objWBConnect

Sheets("Inventory_Detail").Parts_Entered.ListIndex = 0

End Sub

Thanks for the help!!!

 

[DanteAmor]

Glad we could help & thanks for the feedback