is there a way to unhide my rows when the spreadsheet is sent to email? this
is the macro that i'm using. the macro works and an email is generated but i
want to send the entire spreadsheet (unhide my rows) as an attachement.

thanks

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
..To = ""
..CC = ""
..BCC = ""
..Subject = "Revenue Enhancement Escalation"
..Body = ""
..Attachments.Add ActiveWorkbook.FullName
..display
End With
Set OutMail = Nothing
Set OutApp = Nothing


End Sub

--
problem

Hi bigproblem

Are the rows hidden or do you have a filter on ??

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message ...
is there a way to unhide my rows when the spreadsheet is sent to email? this
is the macro that i'm using. the macro works and an email is generated but i
want to send the entire spreadsheet (unhide my rows) as an attachement.

thanks

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Revenue Enhancement Escalation"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing


End Sub

--
problem

i have them hidden when the checkbox is selected. is there a way to unhide
when the spreadsheet is converted into an attached?

(just in case) macro used for checkbox...
Private Sub CheckBox2_Click()
Dim myRng As Range

Set myRng = Me.Range("c12:c12")

myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
End Sub
--
problem


"Ron de Bruin" wrote:

Hi bigproblem

Are the rows hidden or do you have a filter on ??

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message ...
is there a way to unhide my rows when the spreadsheet is sent to email? this
is the macro that i'm using. the macro works and an email is generated but i
want to send the entire spreadsheet (unhide my rows) as an attachement.

thanks

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Revenue Enhancement Escalation"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing


End Sub

--
problem

You can add this for the activesheet in the code before you create the mail

With ActiveSheet
.UsedRange.Columns(1).EntireRow.Hidden = False
End With


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message ...
i have them hidden when the checkbox is selected. is there a way to unhide
when the spreadsheet is converted into an attached?

(just in case) macro used for checkbox...
Private Sub CheckBox2_Click()
Dim myRng As Range

Set myRng = Me.Range("c12:c12")

myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
End Sub
--
problem


"Ron de Bruin" wrote:

Hi bigproblem

Are the rows hidden or do you have a filter on ??

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message ...
is there a way to unhide my rows when the spreadsheet is sent to email? this
is the macro that i'm using. the macro works and an email is generated but i
want to send the entire spreadsheet (unhide my rows) as an attachement.

thanks

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Revenue Enhancement Escalation"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing


End Sub

--
problem

I've tried to insert the text into the macro. Maybe i'm doing something
wrong or putting it in the wrong place because i can't get it to work.

Where should i put your text ?

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
..To = ""
..CC = ""
..BCC = ""
..Subject = "Revenue Enhancement Escalation"
..Body = ""
..Attachments.Add ActiveWorkbook.FullName
..display
End With
Set OutMail = Nothing
Set OutApp = Nothing
With ActiveSheet
..UsedRange.Columns(1).EntireRow.Hidden = False
End With


End Sub


--
problem


"Ron de Bruin" wrote:

You can add this for the activesheet in the code before you create the mail

With ActiveSheet
.UsedRange.Columns(1).EntireRow.Hidden = False
End With


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message ...
i have them hidden when the checkbox is selected. is there a way to unhide
when the spreadsheet is converted into an attached?

(just in case) macro used for checkbox...
Private Sub CheckBox2_Click()
Dim myRng As Range

Set myRng = Me.Range("c12:c12")

myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
End Sub
--
problem


"Ron de Bruin" wrote:

Hi bigproblem

Are the rows hidden or do you have a filter on ??

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message ...
is there a way to unhide my rows when the spreadsheet is sent to email? this
is the macro that i'm using. the macro works and an email is generated but i
want to send the entire spreadsheet (unhide my rows) as an attachement.

thanks

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Revenue Enhancement Escalation"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing


End Sub

--
problem

Add the code Before

With Outmail



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message ...

I've tried to insert the text into the macro. Maybe i'm doing something
wrong or putting it in the wrong place because i can't get it to work.

Where should i put your text ?

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Revenue Enhancement Escalation"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
With ActiveSheet
.UsedRange.Columns(1).EntireRow.Hidden = False
End With


End Sub


--
problem


"Ron de Bruin" wrote:

You can add this for the activesheet in the code before you create the mail

With ActiveSheet
.UsedRange.Columns(1).EntireRow.Hidden = False
End With


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message ...
i have them hidden when the checkbox is selected. is there a way to unhide
when the spreadsheet is converted into an attached?

(just in case) macro used for checkbox...
Private Sub CheckBox2_Click()
Dim myRng As Range

Set myRng = Me.Range("c12:c12")

myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
End Sub
--
problem


"Ron de Bruin" wrote:

Hi bigproblem

Are the rows hidden or do you have a filter on ??

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"bigproblem" wrote in message
...
is there a way to unhide my rows when the spreadsheet is sent to email? this
is the macro that i'm using. the macro works and an email is generated but i
want to send the entire spreadsheet (unhide my rows) as an attachement.

thanks

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Revenue Enhancement Escalation"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing


End Sub

--
problem