Project Name : 'VBAProject'
Quirk - duff tag length======================
Module12
>>>>>>
Attribute VB_Name = "Module12"
Sub CLASVR()
Attribute CLASVR.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute CLASVR.VB_ProcData.VB_Invoke_Func = "U\n14"
'
' CLASVR Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+U
'
Application.ScreenUpdating = False
Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("CLA Server-TDF", "CLA Server-AFS-Customer", _
        "Post Audit Instructions")).Copy
    
    Sheets("CLA Server-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("CLA Server-AFS-Customer").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 5").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select

    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub CLASVR1()
Attribute CLASVR1.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute CLASVR1.VB_ProcData.VB_Invoke_Func = "h\n14"
'
' CLASVR1 Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+h
'
Application.ScreenUpdating = False
    Sheets(Array("CLA Server RLP", "CLA Server-TDF", "CLA Server-AFS-Customer", _
        "CLA Server-AFS-Novell")).Copy
  
    Sheets("CLA Server RLP").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA Server-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA Server-AFS-Customer").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 5").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA Server-AFS-Novell").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub CLAUSR()
Attribute CLAUSR.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute CLAUSR.VB_ProcData.VB_Invoke_Func = "T\n14"
'
' CLAUSR Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+T
'
Application.ScreenUpdating = False
Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("CLA User TDF (Expanded)", "CLA User", "CLA User AFS (Customer)", "Post Audit Instructions")). _
        Copy
        
    Sheets("CLA User TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
       Range("A1").Select
       Sheets("CLA User").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
       Range("A1").Select
    Sheets("CLA User AFS (Customer)").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True

    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub CLAUSR1()
Attribute CLAUSR1.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute CLAUSR1.VB_ProcData.VB_Invoke_Func = "g\n14"
'
' CLAUSR1 Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+g
'
Application.ScreenUpdating = False
    
    Sheets(Array("CLA User RLP", "CLA User TDF (Expanded)", "CLA User", "CLA User AFS (Customer)", _
        "CLA User AFS (Novell)")).Copy
  
    Sheets("CLA User RLP").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA User").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA User AFS (Customer)").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA User AFS (Novell)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub CLASIT()
Attribute CLASIT.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute CLASIT.VB_ProcData.VB_Invoke_Func = "R\n14"
'
' CLASIT Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+R
'
Application.ScreenUpdating = False
Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("CLA Site TDF (Expanded)", "CLA Site-TDF", _
        "CLA Site-AFS-Customer", "Post Audit Instructions")).Copy
    
        Sheets("CLA Site TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Cells.Select
        
        
    Sheets("CLA Site-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Sheets("CLA Site-AFS-Customer").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Cells.Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True

     sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub CLASIT1()
Attribute CLASIT1.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute CLASIT1.VB_ProcData.VB_Invoke_Func = "r\n14"
'
' CLASIT1 Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+r
'
Application.ScreenUpdating = False
    
    Sheets(Array("CLA RLP", "CLA Site TDF (Expanded)", "CLA Site-TDF", _
        "CLA Site-AFS-Customer", "CLA Site-AFS-Novell")).Copy
    
    Sheets("CLA RLP").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA Site TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA Site-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA Site-AFS-Customer").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("CLA Site-AFS-Novell").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub

Sub ECLASERCUST()
Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("CLA Server-TDF", "CLA Server-AFS-Customer", _
        "Post Audit Instructions")).Copy

    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("CLA Server-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("CLA Server-AFS-Customer").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
       .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Shapes("Button 5").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select

    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '    .FitToPagesWide = 1
    '    .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub

Sub ECLAUSRCUST()

Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("CLA User TDF (Expanded)", "CLA User", "CLA User AFS (Customer)", "Post Audit Instructions")). _
        Copy
        
    Sheets("CLA User TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
   '    .CenterHorizontally = True
   '    .CenterVertically = False
       .PaperSize = xlPaperA4
   '    .FitToPagesWide = 1
   '    .FitToPagesTall = 1
    End With


    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("CLA User").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("CLA User AFS (Customer)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
       .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select

    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '    .FitToPagesWide = 1
    '    .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
    

End Sub

Sub ECLASITCUST()

Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("CLA Site TDF (Expanded)", "CLA Site-TDF", "CLA Site-AFS-Customer", "Post Audit Instructions")). _
        Copy
        
    Sheets("CLA Site TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
   '    .CenterHorizontally = True
   '    .CenterVertically = False
       .PaperSize = xlPaperA4
   '    .FitToPagesWide = 1
   '    .FitToPagesTall = 1
    End With


    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("CLA Site-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("CLA Site-AFS-Customer").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
       .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select

    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '    .FitToPagesWide = 1
    '    .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
     sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub

<<<<<<
======================
ThisWorkbook
>>>>>>
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Module5
>>>>>>
Attribute VB_Name = "Module5"
<<<<<<
======================
Sheet3
>>>>>>
Attribute VB_Name = "Sheet3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet4
>>>>>>
Attribute VB_Name = "Sheet4"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet5
>>>>>>
Attribute VB_Name = "Sheet5"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet6
>>>>>>
Attribute VB_Name = "Sheet6"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet7
>>>>>>
Attribute VB_Name = "Sheet7"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet8
>>>>>>
Attribute VB_Name = "Sheet8"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet9
>>>>>>
Attribute VB_Name = "Sheet9"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
<<<<<<
======================
Sheet10
>>>>>>
Attribute VB_Name = "Sheet10"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet11
>>>>>>
Attribute VB_Name = "Sheet11"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet12
>>>>>>
Attribute VB_Name = "Sheet12"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet13
>>>>>>
Attribute VB_Name = "Sheet13"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet14
>>>>>>
Attribute VB_Name = "Sheet14"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
<<<<<<
======================
Sheet45
>>>>>>
Attribute VB_Name = "Sheet45"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet17
>>>>>>
Attribute VB_Name = "Sheet17"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Module11
>>>>>>
Attribute VB_Name = "Module11"
Sub MLAUSR()
Attribute MLAUSR.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute MLAUSR.VB_ProcData.VB_Invoke_Func = "O\n14"
'
' MLAUSR Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+O
'
Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("MLA User TDF (Expanded)", "MLA User", "MLA User Customer AFS", "Post Audit Instructions")). _
        Copy
    
    Sheets("MLA User TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("MLA User").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("MLA User Customer AFS").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub MLAUSR1()
Attribute MLAUSR1.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute MLAUSR1.VB_ProcData.VB_Invoke_Func = "L\n14"
'
' MLAUSR1 Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+L
'
Application.ScreenUpdating = False

    Sheets(Array("MLA User RLP", "MLA User TDF (Expanded)", "MLA User", "MLA User Customer AFS", "MLA User AFS")) _
        .Copy
    Sheets("MLA User Customer AFS").Select
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Sheets("MLA User RLP").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("MLA User TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("MLA User").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("MLA User Customer AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("MLA User AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub MLANOD()
Attribute MLANOD.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute MLANOD.VB_ProcData.VB_Invoke_Func = "I\n14"
'
' MLANOD Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+I
'
Application.ScreenUpdating = False

    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("Nodal TDF (Expanded)", "Nodal TDF", "MLA Nodal Customer AFS", _
        "Post Audit Instructions")).Copy
    
    Sheets("Nodal TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Nodal TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("MLA Nodal Customer AFS").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub MLANOD1()
Attribute MLANOD1.VB_Description = "Macro recorded 9/27/2002 by Brandon L. Bailey"
Attribute MLANOD1.VB_ProcData.VB_Invoke_Func = "k\n14"
'
' MLANOD1 Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+k
'
Application.ScreenUpdating = False
    
    Sheets(Array("MLA RLP", "Nodal TDF (Expanded)", "Nodal TDF", _
        "MLA Nodal Customer AFS", "Nodal AFS")).Copy
    Sheets("MLA Nodal Customer AFS").Select
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Sheets("MLA RLP").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("Nodal TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("Nodal TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("MLA Nodal Customer AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("Nodal AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub

Sub EMLAUSRCUST()

'
Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("MLA User TDF (Expanded)", "MLA User", "MLA User Customer AFS", "Post Audit Instructions")). _
        Copy
   
    Sheets("MLA User TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
   '    .CenterHorizontally = True
   '    .CenterVertically = False
       .PaperSize = xlPaperA4
   '    .FitToPagesWide = 1
   '    .FitToPagesTall = 1
    End With


    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("MLA User").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("MLA User Customer AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
       .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '    .FitToPagesWide = 1
    '    .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub

Sub EMLANODCUST()
Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("Nodal TDF (Expanded)", "Nodal TDF", "MLA Nodal Customer AFS", "Post Audit Instructions")). _
        Copy
        
    Sheets("Nodal TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
   '    .CenterHorizontally = True
   '    .CenterVertically = False
       .PaperSize = xlPaperA4
   '    .FitToPagesWide = 1
   '    .FitToPagesTall = 1
    End With


    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("Nodal TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("MLA Nodal Customer AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
       .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select

    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '    .FitToPagesWide = 1
    '    .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub


<<<<<<
======================
Sheet2
>>>>>>
Attribute VB_Name = "Sheet2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
<<<<<<
======================
Sheet1
>>>>>>
Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet47
>>>>>>
Attribute VB_Name = "Sheet47"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet20
>>>>>>
Attribute VB_Name = "Sheet20"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet21
>>>>>>
Attribute VB_Name = "Sheet21"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet22
>>>>>>
Attribute VB_Name = "Sheet22"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
<<<<<<
======================
Sheet23
>>>>>>
Attribute VB_Name = "Sheet23"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet24
>>>>>>
Attribute VB_Name = "Sheet24"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet25
>>>>>>
Attribute VB_Name = "Sheet25"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub CommandButton1_Click()

End Sub
<<<<<<
======================
Sheet26
>>>>>>
Attribute VB_Name = "Sheet26"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub CheckBox1_Click()

End Sub
<<<<<<
======================
Sheet27
>>>>>>
Attribute VB_Name = "Sheet27"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub TextBox1_Change()

End Sub
<<<<<<
======================
Sheet28
>>>>>>
Attribute VB_Name = "Sheet28"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet29
>>>>>>
Attribute VB_Name = "Sheet29"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet30
>>>>>>
Attribute VB_Name = "Sheet30"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet31
>>>>>>
Attribute VB_Name = "Sheet31"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Module2
>>>>>>
Attribute VB_Name = "Module2"
Sub Button6_Click()
Attribute Button6_Click.VB_Description = "Macro recorded 6/20/2002 by Brandon L. Bailey"
Attribute Button6_Click.VB_ProcData.VB_Invoke_Func = "l\n14"
'
' Button6_Click Macro
' Macro recorded 6/20/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+l
'
'Sheets("Customers Network").Select
    'Rows("35:36").Select
   ' Selection.EntireRow.Hidden = False
    
    Application.ScreenUpdating = False
    
 
    Sheets("Customers Network").Rows("46:47").EntireRow.Hidden = False
    
    Sheets("Customers Network").Select
    Range("B47").Select
    Selection.ClearContents
    
    Sheets("Macro Box").Visible = True
    Sheets("Macro Box").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=+R[1]"
    Range("B50").Select
    ActiveCell.FormulaR1C1 = "=+R[1]"
    Range("B154").Select
    ActiveCell.FormulaR1C1 = "=+R[1]"
    Sheets("Macro Box").Visible = False
    
    Sheets("Technical Data").Rows("11:17").EntireRow.Hidden = False
    Sheets("CLA User TDF (Expanded)").Visible = False
    Sheets("CLA RLP").Visible = False
    Sheets("CLA Site TDF (Expanded)").Visible = False
    Sheets("MLA User TDF (Expanded)").Visible = False
    Sheets("CLA Site-TDF").Visible = False
    Sheets("CLA Site-AFS-Customer").Visible = False
    Sheets("CLA Site-AFS-Novell").Visible = False
    Sheets("CLA User RLP").Visible = False
    Sheets("CLA User AFS (Customer)").Visible = False
    Sheets("CLA User AFS (Novell)").Visible = False
    Sheets("CLA User").Visible = False
    Sheets("CLA Server RLP").Visible = False
    Sheets("CLA Server-TDF").Visible = False
    Sheets("CLA Server-AFS-Customer").Visible = False
    Sheets("CLA Server-AFS-Novell").Visible = False
    Sheets("MLA RLP").Visible = False
    Sheets("Nodal TDF (Expanded)").Visible = False
    Sheets("Nodal TDF").Visible = False
    Sheets("Nodal AFS").Visible = False
    Sheets("MLA User RLP").Visible = False
    Sheets("MLA User AFS").Visible = False
    Sheets("MLA User").Visible = False
    Sheets("MLA User Customer AFS").Visible = False
    Sheets("MLA Nodal Customer AFS").Visible = False
    Sheets("SEA Employee RLP").Visible = False
    Sheets("SEA Employee").Visible = False
    Sheets("SEA Employee Customer AFS").Visible = False
    Sheets("SEA Employee AFS").Visible = False
    Sheets("SEA WS RLP").Visible = False
    Sheets("SEA WS TDF (Expanded)").Visible = False
    Sheets("SEA WS-TDF").Visible = False
    Sheets("SEA WS-AFS-Customer").Visible = False
    Sheets("SEA WS-AFS-Novell").Visible = False
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    
    Sheets("Technical Data").Select
    Range("E8").Select
    Selection.Hyperlinks.Delete
  With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    Sheets("Purchasing Data").Select
    Range("E11").Select
    Selection.Hyperlinks.Delete
  With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    
    Sheets("Table of Contents").Select
    Range("F32").Select
    Selection.Hyperlinks.Delete
    Range("F33").Select
    Selection.Hyperlinks.Delete
    Range("F34").Select
    Selection.Hyperlinks.Delete
    Range("D32").Select
    Selection.Hyperlinks.Delete
    Range("D33").Select
    Selection.Hyperlinks.Delete
    Range("D34").Select
    Selection.Hyperlinks.Delete
    Range("D19:F34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Range("D19:D34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Range("F4:I5").Select
End Sub
Sub Button8_Click()
Attribute Button8_Click.VB_Description = "Macro recorded 6/20/2002 by Brandon L. Bailey"
Attribute Button8_Click.VB_ProcData.VB_Invoke_Func = "j\n14"
'
' Button8_Click Macro
' Macro recorded 6/20/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+j
'
Application.ScreenUpdating = False

Sheets("Customers Network").Select
    Range("B47").Select
    ActiveCell.FormulaR1C1 = "NA"
    
Sheets("Customers Network").Select
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets("Technical Data").Select
    Rows("17").Select
    Selection.EntireRow.Hidden = True
    
    Sheets("Macro Box").Visible = True
    Sheets("Macro Box").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[4]"
    Range("B50").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[4]"
    Range("B154").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[4]"
    Sheets("Macro Box").Visible = False
    
    Sheets("MLA User RLP").Visible = True
    Sheets("MLA User AFS").Visible = True
    Sheets("MLA User").Visible = True
    Sheets("MLA User Customer AFS").Visible = True
    Sheets("MLA User TDF (Expanded)").Visible = True
    
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    
    Sheets("Technical Data").Select
        Range("E8").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA User'!A1", TextToDisplay:="TDF"
        
        Sheets("Purchasing Data").Select
        Range("E11").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA User RLP'!A1", TextToDisplay:="RLP"
        
    Sheets("Table of Contents").Select
    Range("F32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA User RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("F33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA User'!A1", TextToDisplay:="Technical Data Form"
    Range("F34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA User AFS'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("D32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA User RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("D33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA User'!A1", TextToDisplay:="Technical Data Form"
    Range("D34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA User AFS'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("F19:F34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D19:D34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    Range("F4:I5").Select
End Sub
Sub Button3_Click()
Attribute Button3_Click.VB_Description = "Macro recorded 6/20/2002 by Brandon L. Bailey"
Attribute Button3_Click.VB_ProcData.VB_Invoke_Func = "u\n14"
'
' Button3_Click Macro
' Macro recorded 6/20/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+u
'
    Application.ScreenUpdating = False
    
    Sheets("Technical Data").Select
    Rows("13:17").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets("Macro Box").Visible = True
    Sheets("Macro Box").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[1]"
    Range("B50").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[1]"
    Range("B154").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[1]"
    Sheets("Macro Box").Visible = False
    
    Sheets("CLA User RLP").Visible = True
    Sheets("CLA User AFS (Customer)").Visible = True
    Sheets("CLA User AFS (Novell)").Visible = True
    Sheets("CLA User").Visible = True
    Sheets("CLA User TDF (Expanded)").Visible = True
    
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    
    Sheets("Technical Data").Select
        Range("E8").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA User'!A1", TextToDisplay:="TDF"
        
        Sheets("Purchasing Data").Select
        Range("E11").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA User RLP'!A1", TextToDisplay:="RLP"
        
    Sheets("Table of Contents").Select
    Range("F32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA User RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("F33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA User'!A1", TextToDisplay:="Technical Data Form"
    Range("F34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA User AFS (Customer)'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("D32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA User RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("D33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA User'!A1", TextToDisplay:="Technical Data Form"
    Range("D34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA User AFS (Customer)'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("F19:F34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D19:D34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With

    Range("F4:I5").Select
End Sub
Sub Button1_Click()
Attribute Button1_Click.VB_Description = "Macro recorded 6/20/2002 by Brandon L. Bailey"
Attribute Button1_Click.VB_ProcData.VB_Invoke_Func = "t\n14"
'
' Button1_Click Macro
' Macro recorded 6/20/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+t
'
    Application.ScreenUpdating = False

    Sheets("Technical Data").Select
    Rows("13:17").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets("Macro Box").Visible = True
    Sheets("Macro Box").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]"
    Range("B50").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]"
    Range("B154").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]"
    Sheets("Macro Box").Visible = False
    
    Sheets("CLA RLP").Visible = True
    Sheets("CLA Site TDF (Expanded)").Visible = True
    Sheets("CLA Site-TDF").Visible = True
    Sheets("CLA Site-AFS-Customer").Visible = True
    Sheets("CLA Site-AFS-Novell").Visible = True
    
    Sheets("Technical Data").Select
        Range("E8").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Site-TDF'!A1", TextToDisplay:="TDF"
        
        Sheets("Purchasing Data").Select
        Range("E11").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA RLP'!A1", TextToDisplay:="RLP"
    
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Table of Contents").Select
        Range("F32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("F33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Site-TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("F34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Site-AFS-Customer'!A1", TextToDisplay:="Audit Finding Sheet"
        Range("D32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("D33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Site-TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("D34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Site-AFS-Customer'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("F19:F34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D19:D34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With

    Range("F4:I5").Select
End Sub
Sub Button2_Click()
Attribute Button2_Click.VB_Description = "Macro recorded 6/20/2002 by Brandon L. Bailey"
Attribute Button2_Click.VB_ProcData.VB_Invoke_Func = "y\n14"
'
' Button2_Click Macro
' Macro recorded 6/20/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+y
'
    Application.ScreenUpdating = False
    
    Sheets("Technical Data").Select
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets("Macro Box").Visible = True
    Sheets("Macro Box").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[2]"
    Range("B50").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[2]"
    Range("B154").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[2]"
    Sheets("Macro Box").Visible = False
    
    Sheets("CLA Server RLP").Visible = True
    Sheets("CLA Server-TDF").Visible = True
    Sheets("CLA Server-AFS-Customer").Visible = True
    Sheets("CLA Server-AFS-Novell").Visible = True
    
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    
    Sheets("Technical Data").Select
        Range("E8").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Server-TDF'!A1", TextToDisplay:="TDF"
        
        Sheets("Purchasing Data").Select
        Range("E11").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Server RLP'!A1", TextToDisplay:="RLP"
        
    Sheets("Table of Contents").Select
        Range("F32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Server RLP'!A6", TextToDisplay:="License Reconciliation Form"
    Range("F33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Server-TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("F34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Server-AFS-Customer'!A1", TextToDisplay:="Audit Finding Sheet"
        Range("D32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Server RLP'!A6", TextToDisplay:="License Reconciliation Form"
    Range("D33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Server-TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("D34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'CLA Server-AFS-Customer'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("F19:F34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D19:D34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With

    Range("F4:I5").Select
End Sub
Sub Button4_Click()
Attribute Button4_Click.VB_Description = "Macro recorded 6/20/2002 by Brandon L. Bailey"
Attribute Button4_Click.VB_ProcData.VB_Invoke_Func = "i\n14"
'
' Button4_Click Macro
' Macro recorded 6/20/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+i
'
Application.ScreenUpdating = False
Sheets("Customers Network").Select
    Range("B47").Select
    ActiveCell.FormulaR1C1 = "NA"
    
    Sheets("Customers Network").Select
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets("Technical Data").Select
    Rows("17").Select
    Selection.EntireRow.Hidden = True
    
    Sheets("Macro Box").Visible = True
    Sheets("Macro Box").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[3]"
    Range("B50").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[3]"
    Range("B154").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[3]"
    Sheets("Macro Box").Visible = False
    
    Sheets("MLA Nodal Customer AFS").Visible = True
    Sheets("MLA RLP").Visible = True
    Sheets("Nodal TDF (Expanded)").Visible = True
    Sheets("Nodal TDF").Visible = True
    Sheets("Nodal AFS").Visible = True

    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    
    Sheets("Technical Data").Select
        Range("E8").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Nodal TDF'!A1", TextToDisplay:="TDF"
        
        Sheets("Purchasing Data").Select
        Range("E11").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA RLP'!A1", TextToDisplay:="RLP"
        
    Sheets("Table of Contents").Select
            Range("F32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("F33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Nodal TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("F34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Nodal AFS'!A1", TextToDisplay:="Audit Finding Sheet"
            Range("D32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'MLA RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("D33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Nodal TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("D34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Nodal AFS'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("F19:F34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D19:D34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With

    Range("F4:I5").Select
End Sub

Sub Button5_Click()
'
' Button5_Click Macro
' Macro recorded 6/20/2002 by Brandon L. Bailey
'
'
'
Application.ScreenUpdating = False
Sheets("Customers Network").Select
    Range("B47").Select
    ActiveCell.FormulaR1C1 = "NA"
    
    Sheets("Customers Network").Select
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets("Technical Data").Select
    Rows("13:17").Select
    Selection.EntireRow.Hidden = True
    
    Sheets("Macro Box").Visible = True
    Sheets("Macro Box").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[6]"
    Range("B50").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[6]"
    Range("B154").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[6]"
    Sheets("Macro Box").Visible = False
    
    Sheets("SEA Employee Customer AFS").Visible = True
    Sheets("SEA Employee RLP").Visible = True
    Sheets("SEA Employee").Visible = True
    Sheets("SEA Employee AFS").Visible = True

    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    
    Sheets("Technical Data").Select
        Range("E8").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA Employee TDF'!A1", TextToDisplay:="TDF"
        
        Sheets("Purchasing Data").Select
        Range("E11").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA Employee RLP'!A1", TextToDisplay:="RLP"
        
    Sheets("Table of Contents").Select
            Range("F32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA Employee RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("F33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA Employee TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("F34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA Employee AFS'!A1", TextToDisplay:="Audit Finding Sheet"
            Range("D32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA Employee RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("D33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA Employee TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("D34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA Employee AFS'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("F19:F34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D19:D34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With

    Range("F4:I5").Select
End Sub

Sub Button7_Click()
'
' Button7_Click Macro
' Macro recorded 6/20/2002 by Brandon L. Bailey
'
'
'
Application.ScreenUpdating = False
Sheets("Customers Network").Select
    Range("B47").Select
    ActiveCell.FormulaR1C1 = "NA"
    
    Sheets("Customers Network").Select
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    Sheets("Technical Data").Select
    Rows("13:17").Select
    Selection.EntireRow.Hidden = True
    
    Sheets("Macro Box").Visible = True
    Sheets("Macro Box").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[5]"
    Range("B50").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[5]"
    Range("B154").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C[5]"
    Sheets("Macro Box").Visible = False
    
    Sheets("SEA WS-AFS-Customer").Visible = True
    Sheets("SEA WS RLP").Visible = True
    Sheets("SEA WS TDF (Expanded)").Visible = True
    Sheets("SEA WS-TDF").Visible = True
    Sheets("SEA WS-AFS-Novell").Visible = True

    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    
    Sheets("Technical Data").Select
        Range("E8").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA WS-TDF'!A1", TextToDisplay:="TDF"
        
        Sheets("Purchasing Data").Select
        Range("E11").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA WS RLP'!A1", TextToDisplay:="RLP"
        
    Sheets("Table of Contents").Select
    Range("F32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA WS RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("F33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA WS-TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("F34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA WS-AFS-Customer'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("D32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA WS RLP'!A1", TextToDisplay:="License Reconciliation Form"
    Range("D33").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA WS-TDF'!A1", TextToDisplay:="Technical Data Form"
    Range("D34").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'SEA WS-AFS-Customer'!A1", TextToDisplay:="Audit Finding Sheet"
    Range("F19:F34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D19:D34").Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With

    Range("F4:I5").Select
End Sub
<<<<<<
======================
Sheet32
>>>>>>
Attribute VB_Name = "Sheet32"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet33
>>>>>>
Attribute VB_Name = "Sheet33"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet34
>>>>>>
Attribute VB_Name = "Sheet34"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet35
>>>>>>
Attribute VB_Name = "Sheet35"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet36
>>>>>>
Attribute VB_Name = "Sheet36"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet37
>>>>>>
Attribute VB_Name = "Sheet37"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet38
>>>>>>
Attribute VB_Name = "Sheet38"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet39
>>>>>>
Attribute VB_Name = "Sheet39"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Module3
>>>>>>
Attribute VB_Name = "Module3"
<<<<<<
======================
Module4
>>>>>>
Attribute VB_Name = "Module4"
Sub SEAEE()
'
' MLAUSR Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+O
'
Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("SEA Employee", "SEA Employee Customer AFS", "Post Audit Instructions")). _
        Copy
    
    Sheets("SEA Employee").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("SEA Employee Customer AFS").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub SEAEE1()
'
' MLAUSR1 Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+L
'
Application.ScreenUpdating = False

    Sheets(Array("SEA Employee RLP", "SEA Employee", "SEA Employee Customer AFS", "SEA Employee AFS")) _
        .Copy
    Sheets("SEA Employee Customer AFS").Select
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Sheets("SEA Employee RLP").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("SEA Employee").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("SEA Employee Customer AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("SEA Employee AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub SEAWS()
'
' MLANOD Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+I
'
Application.ScreenUpdating = False

    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("SEA WS TDF (Expanded)", "SEA WS-TDF", "SEA WS-AFS-Customer", _
        "Post Audit Instructions")).Copy
    
    Sheets("SEA WS TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("SEA WS-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("SEA WS-AFS-Customer").Select
    ActiveSheet.Unprotect
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub
Sub SEAWS1()
'
' MLANOD1 Macro
' Macro recorded 9/27/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+k
'
Application.ScreenUpdating = False
    
    Sheets(Array("SEA WS RLP", "SEA WS TDF (Expanded)", "SEA WS-TDF", _
        "SEA WS-AFS-Customer", "SEA WS-AFS-Novell")).Copy
    Sheets("SEA WS-AFS-Customer").Select
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    Sheets("SEA WS RLP").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("SEA WS TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("SEA WS-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("SEA WS-AFS-Customer").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    Sheets("SEA WS-AFS-Novell").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select
    
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub

Sub ESEAEE()

'
Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("SEA Employee", "SEA Employee Customer AFS", "Post Audit Instructions")). _
        Copy
   
    Sheets("SEA Employee").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("SEA Employee Customer AFS").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
       .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select
    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '    .FitToPagesWide = 1
    '    .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub

Sub ESEAWS()
Application.ScreenUpdating = False
    Sheets("Post Audit Instructions").Visible = True
    Sheets(Array("SEA WS TDF (Expanded)", "SEA WS-TDF", "SEA WS-AFS-Customer", "Post Audit Instructions")). _
        Copy
        
    Sheets("SEA WS-TDF").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
   '    .CenterHorizontally = True
   '    .CenterVertically = False
       .PaperSize = xlPaperA4
   '    .FitToPagesWide = 1
   '    .FitToPagesTall = 1
    End With


    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("SEA WS TDF (Expanded)").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
    Range("A1").Select

    Sheets("SEA WS-AFS-Customer").Select
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
       .PaperSize = xlPaperA4
    '   .FitToPagesWide = 1
    '   .FitToPagesTall = 1
    End With
    
    ActiveSheet.Shapes("Button 2").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 3").Select
    Selection.Delete
    ActiveSheet.Shapes("Button 4").Select
    Selection.Delete
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True
        Range("A1").Select

    Sheets("Post Audit Instructions").Select
    ActiveSheet.Unprotect ("toshiba")
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    With ActiveSheet.PageSetup
    '   .CenterHorizontally = True
    '   .CenterVertically = False
        .PaperSize = xlPaperA4
    '    .FitToPagesWide = 1
    '    .FitToPagesTall = 1
    End With
    
    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
    sFilt = "Excel File (*.xls),*.xls"
    sFilename = ActiveWorkbook.Application.GetSaveAsFilename(, sFilt)
    If sFilename <> False Then
    ActiveWorkbook.SaveAs Filename:=sFilename
    ActiveWindow.Close
    Else
    ActiveWindow.Close (False)
    
    End If
    
    Sheets("Post Audit Instructions").Visible = False
    Sheets("Table of Contents").Select
End Sub




<<<<<<
======================
Module13
>>>>>>
Attribute VB_Name = "Module13"
Sub Instructions()
Attribute Instructions.VB_Description = "Macro recorded 10/7/2002 by Brandon L. Bailey"
Attribute Instructions.VB_ProcData.VB_Invoke_Func = "m\n14"
'
' Instructions Macro
' Macro recorded 10/7/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+m
'
    Sheets("Instructions").Visible = True
    Sheets("Instructions").Select
End Sub
Sub hide()
Attribute hide.VB_Description = "Macro recorded 10/7/2002 by Brandon L. Bailey"
Attribute hide.VB_ProcData.VB_Invoke_Func = "n\n14"
'
' hide Macro
' Macro recorded 10/7/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+n
'
    ActiveWindow.WindowState = xlMaximized
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Table of Contents").Select
End Sub
<<<<<<
======================
Sheet40
>>>>>>
Attribute VB_Name = "Sheet40"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet41
>>>>>>
Attribute VB_Name = "Sheet41"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Module1
>>>>>>
Attribute VB_Name = "Module1"
Sub Products()

Application.ScreenUpdating = False

    Dim iValue
    iValue = Worksheets("Customers Network").CheckBoxes(Application.Caller).Value
    Dim oProductRange As Excel.Range
    Set oProductRange = Worksheets("Row List").Range(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text)
    
    If iValue = 1 Then
       For i = 1 To oProductRange.Rows.Count
            sSheetName = oProductRange.Cells(i, 1)
            sRowNumber = oProductRange.Cells(i, 2)
            Worksheets(sSheetName).Rows(sRowNumber & ":" & sRowNumber).EntireRow.Hidden = False
           
       Next i
       
       If InStr(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text, "Other") <> 0 Then
            VersionForm2.Caption = Worksheets("Customers Network").CheckBoxes(Application.Caller).Text
            VersionForm2.Show
       ElseIf InStr(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text, "Zen_SD") <> 0 Then
            Call AddButtonsToUserFormForZen(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text)
       Else
            Call AddButtonsToUserForm(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text)
       End If
          
    Else
        For i = 1 To oProductRange.Rows.Count
            sSheetName = oProductRange.Cells(i, 1)
            sRowNumber = oProductRange.Cells(i, 2)
            Worksheets(sSheetName).Rows(sRowNumber & ":" & sRowNumber).EntireRow.Hidden = True
        Next i
        
        If InStr(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text, "Other") <> 0 Then
            Call FillOtherCheckBox(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text, "", "")
        ElseIf Worksheets("Customers Network").CheckBoxes(Application.Caller).Caption = "Zen_SD" Then
            Worksheets("Customers Network").Range("C33").Value = ""
            Worksheets("Customers Network").Range("D33").Value = ""
        Else
            Call FillProductCheckBox(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text, "")
        End If
        
        If InStr(Worksheets("Customers Network").CheckBoxes(Application.Caller).Text, "NetWare") <> 0 Then
        Sheets("Installed License").Select
        ActiveSheet.Unprotect ("toshiba")
            Worksheets("Installed License").Rows("7:7").EntireRow.Hidden = True
            Worksheets("Installed License").Rows("9:9").EntireRow.Hidden = True
            Worksheets("Installed License").Rows("11:11").EntireRow.Hidden = True
            Worksheets("Installed License").Rows("13:13").EntireRow.Hidden = True
    
        ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowInsertingHyperlinks:=True
        Sheets("Customers Network").Select
        End If
    
    End If
    
End Sub


Sub AddButtonsToUserForm(sProduct As String)
    Dim oChk
    Dim sRange As String
    sRange = sProduct + "_Version"
    Dim oProductRange As Excel.Range
    Set oProductRange = Worksheets("Versions").Range(sRange)
    
        For i = 1 To oProductRange.Rows.Count
            n = 0 + (i * 20)
            Set oChk = VersionForm.Controls.Add("Forms.CheckBox.1")
            With oChk
                .Caption = oProductRange.Cells(i, 1)
                .Top = n
                .Left = 20
            End With
        Next i
    
        Set oOtherChk = VersionForm.Controls.Add("Forms.CheckBox.1")
        With oOtherChk
            .Caption = "Other"
            .Top = n + 20
            .Left = 20
        End With
        
        Set oOtherTextBox = VersionForm.Controls.Add("Forms.TextBox.1")
        oOtherTextBox.Top = n + 20
        oOtherTextBox.Left = 70
            
    VersionForm.Caption = sProduct
    VersionForm.Controls("CommandButton1").Top = n + 60
    VersionForm.Controls("CommandButton2").Top = n + 60
    VersionForm.Height = n + 130
    VersionForm.Show
End Sub

Sub AddButtonsToUserFormForZen(sProduct)
    
    Dim oProductRange As Excel.Range
    Dim oProductRange2 As Excel.Range
    Set oProductRange = Worksheets("Versions").Range("Zen_Desktops_Version")
    Set oProductRange2 = Worksheets("Versions").Range("Zen_Servers_Version")
    
    Set oLbl1 = VersionForm.Controls.Add("Forms.Label.1")
    Set oLbl2 = VersionForm.Controls.Add("Forms.Label.1")
    oLbl1.Top = 20
    oLbl1.Left = 20
    oLbl2.Top = 20
    oLbl2.Left = 170
    oLbl1.Caption = "Zen Desktops"
    oLbl2.Caption = "Zen Servers"
    
        
    For i = 1 To oProductRange.Rows.Count
            n = 20 + (i * 20)
            Set oChk = VersionForm.Controls.Add("Forms.CheckBox.1")
            With oChk
                .Caption = oProductRange.Cells(i, 1)
                .Top = n
                .Left = 20
                .Name = "Desktops_" & i
            End With
    Next i
    
    For i = 1 To oProductRange2.Rows.Count
            z = 20 + (i * 20)
            Set oChk = VersionForm.Controls.Add("Forms.CheckBox.1")
            With oChk
                .Caption = oProductRange2.Cells(i, 1)
                .Top = z
                .Left = 170
                .Name = "Servers_" & i
            End With
    Next i
    
    Set oOtherChk = VersionForm.Controls.Add("Forms.CheckBox.1")
    With oOtherChk
        .Caption = "Other"
        .Top = n + 20
        .Left = 20
        .Name = "D_Other"
    End With
    
    Set oOtherChk = VersionForm.Controls.Add("Forms.CheckBox.1")
    With oOtherChk
        .Caption = "Other"
        .Top = z + 20
        .Left = 170
        .Name = "S_Other"
    End With
    
    Set oOtherTextBox = VersionForm.Controls.Add("Forms.TextBox.1")
    oOtherTextBox.Top = n + 20
    oOtherTextBox.Left = 70
        
     Set oOtherTextBox = VersionForm.Controls.Add("Forms.TextBox.1")
    oOtherTextBox.Top = z + 20
    oOtherTextBox.Left = 220
    
    VersionForm.Caption = sProduct
    VersionForm.Controls("CommandButton1").Top = n + 60
    VersionForm.Controls("CommandButton2").Top = n + 60
    VersionForm.Height = n + 130
    VersionForm.Show
End Sub

Sub FillProductCheckBox(sProduct, sValue)

    Select Case sProduct
        Case "NetWare"
                Worksheets("Customers Network").Range("C27").Value = sValue
        Case "GroupWise"
                 Worksheets("Customers Network").Range("C29").Value = sValue
        Case "BorderManager"
                 Worksheets("Customers Network").Range("C31").Value = sValue
        Case "Zen_Desktops"
                 Worksheets("Customers Network").Range("C37").Value = sValue
        Case "Zen_Servers"
                 Worksheets("Customers Network").Range("C35").Value = sValue
        Case "ManageWise"
                 Worksheets("Customers Network").Range("C39").Value = sValue
        Case "E_Directory"
                 Worksheets("Customers Network").Range("C41").Value = sValue
        Case "ZenSuite"
                 Worksheets("Customers Network").Range("C43").Value = sValue
        Case "DirXML"
                 Worksheets("Customers Network").Range("G27").Value = sValue
        Case "NAM"
                 Worksheets("Customers Network").Range("G29").Value = sValue
        Case "DirXML_SAP"
                 Worksheets("Customers Network").Range("M27").Value = sValue
        Case "DirXML_PS"
                 Worksheets("Customers Network").Range("M29").Value = sValue
        Case "DirXML_JDBC"
                 Worksheets("Customers Network").Range("M31").Value = sValue
    End Select
    
End Sub

Sub FillOtherCheckBox(sCheckBox, sProduct, sVersion)
    Select Case sCheckBox
        Case "Other_1"
                Worksheets("Customers Network").Range("G31").Value = sProduct
                Worksheets("Customers Network").Range("H31").Value = sVersion
        Case "Other_2"
                Worksheets("Customers Network").Range("G33").Value = sProduct
                 Worksheets("Customers Network").Range("H33").Value = sVersion
        Case "Other_3"
                Worksheets("Customers Network").Range("G35").Value = sProduct
                 Worksheets("Customers Network").Range("H35").Value = sVersion
        Case "Other_4"
                Worksheets("Customers Network").Range("G37").Value = sProduct
                Worksheets("Customers Network").Range("H37").Value = sVersion
        Case "Other_5"
                Worksheets("Customers Network").Range("G39").Value = sProduct
                Worksheets("Customers Network").Range("H39").Value = sVersion
        Case "Other_6"
                Worksheets("Customers Network").Range("G41").Value = sProduct
                Worksheets("Customers Network").Range("H41").Value = sVersion
        Case "Other_7"
                Worksheets("Customers Network").Range("G43").Value = sProduct
                Worksheets("Customers Network").Range("H43").Value = sVersion
    End Select
End Sub
<<<<<<
======================
Module6
>>>>>>
Attribute VB_Name = "Module6"
<<<<<<
======================
Module7
>>>>>>
Attribute VB_Name = "Module7"
Sub actionitems()
Attribute actionitems.VB_Description = "Macro recorded 10/11/2002 by Brandon L. Bailey"
Attribute actionitems.VB_ProcData.VB_Invoke_Func = "C\n14"
'
' actionitems Macro
' Macro recorded 10/11/2002 by Brandon L. Bailey
'
' Keyboard Shortcut: Ctrl+Shift+C
'
Application.ScreenUpdating = False
    Sheets("Action Items").Select
    Sheets("Action Items").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Administrator\Desktop\Audit Action Items.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

<<<<<<
======================
VersionForm
>>>>>>
Attribute VB_Name = "VersionForm"
Attribute VB_Base = "0{5D3C9EC2-D4F5-4DCD-93EF-62B256C76E27}{F11B96F1-20B8-4F01-90FE-2E6FEC6FD174}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub CommandButton1_Click()
    Dim sValue As String
    sValue = ""
    sDesktopValue = ""
    sServersValue = ""
    For Each octrl In VersionForm.Controls
        If TypeName(octrl) = "CheckBox" Then
            If InStr(octrl.Name, "CheckBox") <> 0 Then
                If octrl.Value = True Then
                    If octrl.Caption = "Other" Then
                        sValue = sValue + VersionForm.Controls("TextBox1").Value + ", "
                    Else
                        sValue = sValue + octrl.Caption + ", "
                    End If
                End If
            Else
                If octrl.Value = True Then
                    If octrl.Name = "D_Other" Then
                        sDesktopValue = sDesktopValue & VersionForm.Controls("TextBox1").Value + ", "
                    ElseIf octrl.Name = "S_Other" Then
                        sServersValue = sServersValue & VersionForm.Controls("TextBox2").Value + ", "
                    ElseIf InStr(octrl.Name, "Desktops") <> 0 Then
                        sDesktopValue = sDesktopValue & octrl.Caption & ", "
                    ElseIf InStr(octrl.Name, "Servers") <> 0 Then
                        sServersValue = sServersValue & octrl.Caption & ", "
                    End If
                    
                    If sDesktopValue = "" Then
                        sDesktopValueResult = ""
                    Else
                        sDesktopValueResult = Left(sDesktopValue, (Len(sDesktopValue) - 2))
                        
                    End If
                    If sServersValue = "" Then
                        sServersValueResult = ""
                    Else
                        sServersValueResult = Left(sServersValue, (Len(sServersValue) - 2))
                    End If
                    
                    Worksheets("Customers Network").Range("C33").Value = sDesktopValueResult
                    Worksheets("Customers Network").Range("D33").Value = sServersValueResult
                 End If
            End If
        End If
    Next
            If sValue = "" Then
                sResult = ""
            Else
                sResult = Left(sValue, (Len(sValue) - 2))
            End If
        
    Call Module1.FillProductCheckBox(VersionForm.Caption, sResult)
    Call Module9.hidenonuse
           
    Unload VersionForm

End Sub

Private Sub CommandButton2_Click()

Dim oProductRange As Excel.Range
Set oProductRange = Worksheets("drop-down menu").Range(VersionForm.Caption)

For i = 1 To oProductRange.Rows.Count
      sSheetName = oProductRange.Cells(i, 1)
      sRowNumber = oProductRange.Cells(i, 2)
      Worksheets(sSheetName).Rows(sRowNumber & ":" & sRowNumber).EntireRow.Hidden = True
Next i

Select Case VersionForm.Caption
        Case "NetWare"
                Worksheets("Customers Network").Range("C27").Value = ""
        Case "GroupWise"
                 Worksheets("Customers Network").Range("C29").Value = ""
        Case "BorderManager"
                 Worksheets("Customers Network").Range("C31").Value = ""
        Case "Zen_SD"
                 Worksheets("Customers Network").Range("C33").Value = ""
        Case "Zen_Desktops"
                 Worksheets("Customers Network").Range("C35").Value = ""
        Case "Zen_Servers"
                 Worksheets("Customers Network").Range("C37").Value = ""
        Case "ManageWise"
                 Worksheets("Customers Network").Range("C39").Value = ""
        Case "E_Directory"
                 Worksheets("Customers Network").Range("C41").Value = ""
        Case "DirXML"
                 Worksheets("Customers Network").Range("G27").Value = ""
        Case "NAM"
                 Worksheets("Customers Network").Range("G29").Value = ""
    End Select
    Worksheets("Customers Network").CheckBoxes(Application.Caller).Value = False
    Unload VersionForm
End Sub


Private Sub otherversion_Change()

End Sub

Private Sub UserForm_Click()

End Sub
<<<<<<
======================
VersionForm2
>>>>>>
Attribute VB_Name = "VersionForm2"
Attribute VB_Base = "0{D5BCCDF3-33CB-41D3-825A-8CACD8507DD5}{B38C7E84-5946-4E03-99AB-52B7BCC19FC1}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub CommandButton3_Click()
sProduct = TextBox1.Text
sVersion = TextBox2.Text

    Call Module1.FillOtherCheckBox(VersionForm2.Caption, sProduct, sVersion)

    Unload VersionForm2
End Sub

Private Sub CommandButton4_Click()
    Dim oProductRange As Excel.Range
    Set oProductRange = Worksheets("drop-down menu").Range(VersionForm2.Caption)
    
    For i = 1 To oProductRange.Rows.Count
          sSheetName = oProductRange.Cells(i, 1)
          sRowNumber = oProductRange.Cells(i, 2)
          Worksheets(sSheetName).Rows(sRowNumber & ":" & sRowNumber).EntireRow.Hidden = True
    Next i
    
    Worksheets("Customers Network").CheckBoxes(Application.Caller).Value = False
    Unload VersionForm2
       
End Sub

Private Sub UserForm_Click()

End Sub
<<<<<<
======================
VersionForm3
>>>>>>
Attribute VB_Name = "VersionForm3"
Attribute VB_Base = "0{AAAA3876-867C-4016-96E4-556F77398D6C}{FC1A5E62-389F-4601-B7D7-B85EBAA03FB8}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub UserForm_Click()

End Sub
<<<<<<
======================
Sheet55
>>>>>>
Attribute VB_Name = "Sheet55"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Module8
>>>>>>
Attribute VB_Name = "Module8"

<<<<<<
======================
Sheet16
>>>>>>
Attribute VB_Name = "Sheet16"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet18
>>>>>>
Attribute VB_Name = "Sheet18"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Module9
>>>>>>
Attribute VB_Name = "Module9"
Sub hidenonuse()

Application.ScreenUpdating = False

Sheets("Installed License").Select
    ActiveSheet.Unprotect ("toshiba")

    If InStr(Worksheets("Customers Network").Range("C27").Value, "3") <> 0 Then


        Worksheets("Installed License").Rows("7:7").EntireRow.Hidden = False
        
    End If
    

    If InStr(Worksheets("Customers Network").Range("C27").Value, "4") <> 0 Then


        Worksheets("Installed License").Rows("9:9").EntireRow.Hidden = False
        
    End If
        
   If InStr(Worksheets("Customers Network").Range("C27").Value, "5") <> 0 Then


        Worksheets("Installed License").Rows("11:11").EntireRow.Hidden = False
        
    End If
    
    If InStr(Worksheets("Customers Network").Range("C27").Value, "6.5") <> 0 Then
    
        Worksheets("Installed License").Rows("11:11").EntireRow.Hidden = True
        
    End If
        
    If InStr(Worksheets("Customers Network").Range("C27").Value, "6") <> 0 Then


        Worksheets("Installed License").Rows("13:13").EntireRow.Hidden = False

End If

    ActiveSheet.Protect Password:="toshiba", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingHyperlinks:=True
  Sheets("Customers Network").Select
End Sub

Sub SheetLock()

Application.ScreenUpdating = False

sPassword = Application.InputBox("What is the password?", "Unlock All")

Sheets("Table of Contents").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Customer info").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Pre-Audit meeting").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Attendance").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Customers Network").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Self Audit").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Master Software").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Installed License").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Purchasing Data").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Technical Data").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Closing Meeting").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Action Items").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Post Audit").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Audit Closure").Select
    ActiveSheet.Unprotect (sPassword)
        With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
    End With
    
Sheets("Table of Contents").Select
MsgBox "All Unlocked"


End Sub

Sub SheetUnlock()

Application.ScreenUpdating = False

sPassword = Application.InputBox("What is the password?", "Lock All")

Sheets("Table of Contents").Select
    Range("F32:F34").Select
        Selection.Locked = False
        Selection.FormulaHidden = False
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
        
Sheets("Customer info").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
        
Sheets("Pre-Audit meeting").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    
Sheets("Attendance").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
        
Sheets("Customers Network").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
        
Sheets("Self Audit").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    
Sheets("Master Software").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    
Sheets("Installed License").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
Sheets("Purchasing Data").Select
Range("E11:E11").Select
        Selection.Locked = False
        Selection.FormulaHidden = False
   ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
        
Sheets("Technical Data").Select
Range("E8:E8").Select
        Selection.Locked = False
        Selection.FormulaHidden = False
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
        
Sheets("Closing Meeting").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    
Sheets("Action Items").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    
Sheets("Post Audit").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    
Sheets("Audit Closure").Select
    ActiveSheet.Protect (sPassword), DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowInsertingHyperlinks:=True
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    
Sheets("Table of Contents").Select
MsgBox "All Locked"

End Sub



<<<<<<
======================
Module10
>>>>>>
Attribute VB_Name = "Module10"
Sub ToggleCheckBoxes()
    If InStr(Application.Caller, "No") = 0 Then
        If ActiveSheet.CheckBoxes(Application.Caller).Value = 1 Then
            sName = Application.Caller & "_No"
            ActiveSheet.CheckBoxes(sName).Value = -4146
        End If
    Else
        If ActiveSheet.CheckBoxes(Application.Caller).Value = 1 Then
            sName = Left(Application.Caller, Len(Application.Caller) - 3)
            ActiveSheet.CheckBoxes(sName).Value = -4146
        End If
    End If
End Sub
<<<<<<
======================
Sheet19
>>>>>>
Attribute VB_Name = "Sheet19"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet42
>>>>>>
Attribute VB_Name = "Sheet42"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet43
>>>>>>
Attribute VB_Name = "Sheet43"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet46
>>>>>>
Attribute VB_Name = "Sheet46"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet44
>>>>>>
Attribute VB_Name = "Sheet44"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet56
>>>>>>
Attribute VB_Name = "Sheet56"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet49
>>>>>>
Attribute VB_Name = "Sheet49"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet50
>>>>>>
Attribute VB_Name = "Sheet50"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet51
>>>>>>
Attribute VB_Name = "Sheet51"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet52
>>>>>>
Attribute VB_Name = "Sheet52"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet53
>>>>>>
Attribute VB_Name = "Sheet53"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet54
>>>>>>
Attribute VB_Name = "Sheet54"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
