Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
Sub PrintSetup() Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets ActiveWindow.DisplayGridlines = False If ws.Name <> "Cover" Then With ws.PageSetup .Orientation = xlLandscape .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .LeftMargin = Application.InchesToPoints(0.4) .RightMargin = Application.InchesToPoints(0.4) .TopMargin = Application.InchesToPoints(0.4) .BottomMargin = Application.InchesToPoints(0.4) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .LeftFooter = "&""Arial,Regular""&8Risk Management Information Delivery / Integrated Data Mart" .CenterFooter = "" .RightFooter = "&""Arial,Regular""&8&P of &N" End With End If If ws.Visible = True Then ws.Select ActiveWindow.DisplayGridlines = False Range("A1:I1").Select Selection.Font.Underline = xlUnderlineStyleSingle End If On Error Resume Next Next ws Application.ScreenUpdating = True Sheets(1).Select MsgBox "Done" End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
24 Experts available now in Live!