VBA Copy Sheets And Mail - QUERY

I have put the following bit of code together, it selects a sheet and creates a copy , then sends a mail attaching the copy then deletes the copy.My issue is when it picks up the vaRecipient I would like the code to activate the sheet so I may see what it says in the column N - the Default is working - but I would still like to select the sheet.

Code:
Sub SendWithLotusADF()
Dim noSession As Object, noDatabase As Object, noDocument As Object
Dim obAttachment As Object, EmbedObject As Object
Dim stSubject As Variant, stAttachment As String

[Code] ..........