Hi

Use the worksheet function CountA to count responses with responses in
column B:

Responses=Worksheetfunction.CountA(sheets("Summary Sheet").Range("B2:B1000"))

The date drop down it would be eaysier to guide you if you showed the
code you are trying to use. If the cell or variable is holding a valid date
it should show as a date in your combobox. Look at this:

Private Sub Worksheet_Activate()
NextDay = Date + 1
Me.ComboBox1.AddItem Date
Me.ComboBox1.AddItem NextDay
Me.ComboBox1.AddItem Range("A6").Value
Me.ComboBox1.AddItem Format(Range("A7").Value, "mmddyyyy")
End Sub

Regards,
Per

"Bigjon" skrev i meddelelsen
...
I have several sheet with combo boxes that contain data such as First aid,
Vehicle Damage Etc. How do I count the respnses on a summary sheet? Also
when
trying to get a date drop down I get the number in the combo box how do I
get
it to display MMDDYYYY?