Hi Namilian,
Thanks for getting back in touch, you were a great help last time. I have changed the set up slightly and declared the parameter as a string so it now looks like:
Dim Date1 As Date
Dim Date2 As Date
Dim Dept As String
Date1 = Form_Menu.Combo1.Value
Date2 = Form_Menu.Combo2.Value...