Default value for ActiveX combo box when opening spreadsheet

[cpjeffm]

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!

 

[cpjeffm]

I figured it out. I added the following to workbook in VBA:

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