DeBug error

Awesome! 1 more thing, in the field where it states where to pull the info from for the file name, is there a way to pull additional information in different cells and have that placed in the name as well. For instance, the date and time of the call as well as the name of the agent. So currently D9 is the name of the agent, but in G13 and H13 are the date and time of the call. Is that possible to add to the formula?

filename1 = Sheets("TP QA Form").Range("D9").Text

I tried adding it like this and it did not work:

filename1 = Sheets("TP QA Form").Range("D9", "G13", "H13").Text

Suggestions? Can it be done?