Call createJpg (reference sheet)

I have a doubt on this code ...

> With OutMail
> .SentOnBehalfOfName = "***@***"
> .Display
> .Subject = "Strategic Sales"
> .To = "***@***"
> Call createJpg("Strategic", "A1:F11", "Quota")
> 'This runs the macro below and creates the jpeg

How can i change the name of the sheet (ex:"Strategic") for an active sheet. Because when i copy a sheet the code don't work anymore because the reference name.

Please, help.