Sub BC()
'
' BC Macro
'
'
Range("A6:F770").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 750
ActiveWindow.ScrollRow = 747
ActiveWindow.ScrollRow = 742
ActiveWindow.ScrollRow = 737
ActiveWindow.ScrollRow = 735
ActiveWindow.ScrollRow = 725
ActiveWindow.ScrollRow = 720
ActiveWindow.ScrollRow = 706
ActiveWindow.ScrollRow = 693
ActiveWindow.ScrollRow = 676
ActiveWindow.ScrollRow = 659
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 603
ActiveWindow.ScrollRow = 591
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 559
ActiveWindow.ScrollRow = 542
ActiveWindow.ScrollRow = 518
ActiveWindow.ScrollRow = 506
ActiveWindow.ScrollRow = 484
ActiveWindow.ScrollRow = 469
ActiveWindow.ScrollRow = 447
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 411
ActiveWindow.ScrollRow = 394
ActiveWindow.ScrollRow = 374
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 291
ActiveWindow.ScrollRow = 272
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 225
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 6
Range("F6:G770").Select
Selection.NumberFormat = "[$-409]d-mmm;@"
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 747
ActiveWindow.ScrollRow = 742
ActiveWindow.ScrollRow = 737
ActiveWindow.ScrollRow = 732
ActiveWindow.ScrollRow = 720
ActiveWindow.ScrollRow = 711
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 676
ActiveWindow.ScrollRow = 654
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 596
ActiveWindow.ScrollRow = 557
ActiveWindow.ScrollRow = 530
ActiveWindow.ScrollRow = 496
ActiveWindow.ScrollRow = 472
ActiveWindow.ScrollRow = 437
ActiveWindow.ScrollRow = 418
ActiveWindow.ScrollRow = 391
ActiveWindow.ScrollRow = 372
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 264
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 221
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
Range("A5:G5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("H5:AT5").Select
Selection.NumberFormat = "[$-409]d-mmm;@"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 8
Range("H6:AQ910").Select
Selection.NumberFormat = "General"
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
ActiveWindow.ScrollRow = 901
ActiveWindow.ScrollRow = 898
ActiveWindow.ScrollRow = 893
ActiveWindow.ScrollRow = 886
ActiveWindow.ScrollRow = 879
ActiveWindow.ScrollRow = 869
ActiveWindow.ScrollRow = 859
ActiveWindow.ScrollRow = 849
ActiveWindow.ScrollRow = 830
ActiveWindow.ScrollRow = 818
ActiveWindow.ScrollRow = 789
ActiveWindow.ScrollRow = 769
ActiveWindow.ScrollRow = 728
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 667
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 596
ActiveWindow.ScrollRow = 567
ActiveWindow.ScrollRow = 520
ActiveWindow.ScrollRow = 491
ActiveWindow.ScrollRow = 435
ActiveWindow.ScrollRow = 406
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 223
ActiveWindow.ScrollRow = 189
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 6
End Sub
|