I have the following code that opens the report correctly:
Daily Followup: DoCmd.OpenReport "rptSalesContactsOpen", acViewReport, , WhereCondition:="[FollowUpDate] = Date()"
Weekly Followup: DoCmd.OpenReport "rptSalesContactsOpen", acViewReport, , WhereCondition:="DatePart('ww',[FollowUpDate])...