Attribute VB_Name = "Module1"
Sub CleanUp()
Attribute CleanUp.VB_Description = "CleanUp ZFBot Results"
Attribute CleanUp.VB_ProcData.VB_Invoke_Func = "s\n14"
'
' Macro1 Macro
' Macro recorded 6/9/2009 by kgreenwood
'
    Application.ScreenUpdating = False
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Domain"
    With ActiveCell.Characters(Start:=1, Length:=6).Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Matched Domain"
    With ActiveCell.Characters(Start:=1, Length:=14).Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Match Type"
    With ActiveCell.Characters(Start:=1, Length:=10).Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Change"
    With ActiveCell.Characters(Start:=1, Length:=6).Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Dropping"
    With ActiveCell.Characters(Start:=1, Length:=8).Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("E2").Select
    Columns("E:E").ColumnWidth = 15.86
    Columns("C:C").ColumnWidth = 15.29
    Range("A1:E1").Select
    Range("E1").Activate
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("A:A").Select
    Selection.Columns.AutoFit
    Columns("B:B").Select
    Selection.Columns.AutoFit
    Columns("C:C").Select
    Selection.Columns.AutoFit
    Columns("D:D").Select
    Selection.Columns.AutoFit
    Columns("E:E").Select
    Selection.Columns.AutoFit
    Cells.Select
    Selection.RowHeight = 12.75
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    For Each xCell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
    Next xCell
    Range("A2").Select
    Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(1), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=False
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Columns("A:A").Select
    Selection.Columns.AutoFit
    Application.ErrorCheckingOptions.NumberAsText = False
    Rows("1:1").Select
    Selection.AutoFilter
    Columns("A:A").ColumnWidth = 24.14
    Columns("D:D").ColumnWidth = 8.29
    Columns("E:E").ColumnWidth = 6.14
    Range("B2").Select
    With Selection
        .HorizontalAlignment = xlRight
    End With
    Range("B3").Select
    With Selection
        .HorizontalAlignment = xlRight
    End With
    Columns("E:E").ColumnWidth = 23.71
    Columns("F:F").ColumnWidth = 11.71
    Columns("D:D").ColumnWidth = 13.43
    Range("B3").Select
    Selection.Font.Bold = False
    Range("A2").Select
    ActiveSheet.Outline.ShowLevels RowLevels:=3
    ActiveWindow.FreezePanes = True

End Sub