Ok I figured it out,
What I did was copied and pasted the entire filter under the export button cmd.
and then by the end
DoCmd.OpenReport "QryMn", acViewReport, , strWhere
DoCmd.OutputTo acOutputReport, "QryMn", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityScreen