VBA Combobox in excel sheet

Try this in the Open event:

Private Sub Workbook_Open()
   Application.Run "Sheet1.Worksheet_Activate"
End Sub