Dim x As Workbook
Dim y As Workbook
Dim Month As String
Dim Entity
Dim underscore
Dim Hypname
Dim Fullnme
Dim Mnth
Dim Year
Dim Consolidation
Dim Response As Integer
Dim Snd
Dim Flder
Dim dte
Dim rsp
Dim ws As Worksheet
Dim I As Integer
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set x = Workbooks.Open
Sheets("TITLEPAGE").Activate
ActiveSheet.Calculate
Sheets("Data").Activate
ActiveSheet.Calculate
Sheets("Companies").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Companies", "TITLEPAGE", "Data", "Assets", "Liabilities_Equity", _
"Income_Statement", "Intercompany", "Inventory", "PPE-MONTH", "Intangibles", _
"Headcount", "Debt", "Debt Worksheet", "Bonus", "Statistics", "Check")).Select
Calculate
Mnth = Sheets("TITLEPAGE").Range("a52")
Year = Sheets("TITLEPAGE").Range("a53")
Consolidation = Sheets("TITLEPAGE").Range("a54")
Fldr = Sheets("TITLEPAGE").Range("a58")
Month = Mnth & " " & Year & " " & Consolidation
Entity = Sheets("TITLEPAGE").Range("A55")
underscore = Sheets("TITLEPAGE").Range("A56")
Hypname = Sheets("TITLEPAGE").Range("A57")
Snd = Sheets("TITLEPAGE").Range("a58")
dte = Sheets("TITLEPAGE").Range("a59")
Fullnme = Entity & underscore & Hypname & Snd & underscore & dte
ActiveWorkbook.Saveas Filename:="E:\Groups\Hyperion\Acterna\Corp\FY2004\" & Month & "\Packs to load\Send\" & Fullnme & ".xls"
Sheets("TITLEPAGE").Visible = False
Sheets("Assets").Select
Range("D13:D124").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Liabilities_Equity").Select
Range("D12:D93").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Income_Statement").Select
Range("D12:D140").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Statistics").Select
Range("D17:D20").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D22:D27").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D33").Select
Range("D33:D35").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D39:D41").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Data").Select
rsp = InputBox("Enter Password", "Password Protect", Sheets("Data").Range("B112").Value)
For I = 1 To Worksheets.Count
Application.ScreenUpdating = False
Worksheets(I).Protect rsp
Sheets("Data").Select
Sheets("data").unprotect rsp
Rows("111:117").Select
Selection.FormulaHidden = True
Selection.EntireRow.Hidden = True
Selection.Locked = True
Sheets("data").Protect rsp
Next
Sheets("Inventory").Select
Sheets("Inventory").unprotect rsp
Sheets("Inventory").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowUsingPivotTables:=True
Sheets("Data").Select
Range("B2").Select
ActiveWorkbook.Save
Workbooks.Open Filename:="E:\Groups\Hyperion\Acterna\Corp\FY2004\" & Month & "\Entity Pack Template.xls"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub