Thank You so much, that worked amazing!

one note:

this threw a compile error, took a minute to figure out that it should
RunReport("EXECUTIVE DEPARTMENT RECALL REPORT","EXECUTIVE")
look like this:
RunReport "EXECUTIVE DEPARTMENT RECALL REPORT", "EXECUTIVE"