The .to should work for hard coding in the address.
The subject should work as well. The only thing may be that you need to get that value in Range("H152") when the original sheet is still open. You can do something like this near when the stFilename is set to A1:

Dim stSubject as String
stSubject = Range("H152").value