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 <<<<<<