I have 2 workbooks. One consist of a report cover page created with
textboxes, shading, etc. The second workbook has all of my data. I would
like to merge the two workbooks without losing any of my formatting.

I have a macro that creates the data portion of my report and just want
additional code to produce the report with an attached coversheet.


Sub make_report2()
'
'
' Make_Report Macro
' Macro recorded 3/5/2008 by Someone
'
'
Sheets("ENLDATA").Copy Befo=Sheets(2)
Sheets("ENLDATA (2)").Select
Sheets("ENLDATA (2)").Name = "ENLREPORT2"

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

--
53214920

Maybe I'm missing something, but, from what you say, simply copy the cover
sheet from that workbook to the workbook that holds your data, then print
one sheet, then the other. You don't need to copy the sheet to print it,
but you said you wanted to "merge" the 2 workbooks. HTH Otto
"49niner" wrote in message
...
I have 2 workbooks. One consist of a report cover page created with
textboxes, shading, etc. The second workbook has all of my data. I would
like to merge the two workbooks without losing any of my formatting.

I have a macro that creates the data portion of my report and just want
additional code to produce the report with an attached coversheet.


Sub make_report2()
'
'
' Make_Report Macro
' Macro recorded 3/5/2008 by Someone
'
'
Sheets("ENLDATA").Copy Befo=Sheets(2)
Sheets("ENLDATA (2)").Select
Sheets("ENLDATA (2)").Name = "ENLREPORT2"

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

--
53214920

This will be given to another employee to maintain. I was asked to create
the macro so that he could just run the report. We do not want him to copy
or paste. He will just do entries and report. Hope this clear things a
little.
--
53214920


"Otto Moehrbach" wrote:

Maybe I'm missing something, but, from what you say, simply copy the cover
sheet from that workbook to the workbook that holds your data, then print
one sheet, then the other. You don't need to copy the sheet to print it,
but you said you wanted to "merge" the 2 workbooks. HTH Otto
"49niner" wrote in message
...
I have 2 workbooks. One consist of a report cover page created with
textboxes, shading, etc. The second workbook has all of my data. I would
like to merge the two workbooks without losing any of my formatting.

I have a macro that creates the data portion of my report and just want
additional code to produce the report with an attached coversheet.


Sub make_report2()
'
'
' Make_Report Macro
' Macro recorded 3/5/2008 by Someone
'
'
Sheets("ENLDATA").Copy Befo=Sheets(2)
Sheets("ENLDATA (2)").Select
Sheets("ENLDATA (2)").Name = "ENLREPORT2"

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

--
53214920