Hiding Tabs when sending through Outlook

[Mizzness]

All.

How can I adjust my code to hide the Worksheet "Data" ?


Sub Mailer()
'

Application.ActiveWorkbook.Worksheets("Pivot").Activate
Application.ActiveWorkbook.Worksheets("Data").Activate


ESubject = "Subject"

SendTo = ""
Subject = ""
Ebody = ""
NewFileName = ""
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = ""
.To = SendTo
.Body = Ebody
.Attachments.Add ""
.Send
End With
Set App = Nothing
Set Itm = Nothing '
'
End Sub

Thanx.

 

[Mizzness]

To explain further, .Deactivate does not seem to work at hiding tabs I don't want others to view.

Is there another way ?

Thanx.

 

[PHV]

Replace this:
Application.ActiveWorkbook.Worksheets("Data").Activate
By this:
ActiveWorkbook.Worksheets("Data").Visible = xlSheetVeryHidden

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Mizzness]

PHV,

Close but not exactly.

I always want to see the tab however when I send the file, I don't want others to see the tab.
I'm looking for the flexibility of hiding any tabs I don't want others to see when they open the e-mail.
Your method hides it for me also.

Thanx.
Mizzness

 

[PHV]

Simply make the sheet visible by code AFTER the mail is sent.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886