Range( _
"E2:E70,G2:G70,I2:I70,K2:K70,M2:M70,O2:O70,Q2:Q70,S2:S70,U2:U70,W2:W70,Y2:Y70,AA2:AA70,AC2:AC70,AE2:AE70,AG2:AG70,AI2:AI70,AK2:AK70" _
).Select
Range("AK2").Activate
ActiveWindow.SmallScroll ToRight:=30
Range( _
"E2:E70,G2:G70,I2:I70,K2:K70,M2:M70,O2:O70,Q2:Q70,S2:S70,U2:U70,W2:W70,Y2:Y70,AA2:AA70,AC2:AC70,AE2:AE70,AG2:AG70,AI2:AI70,AK2:AK70,AM2:AM70,AO2:AO70,AQ2:AQ70,AS2:AS70,AU2:AU70,AW2:AW70,AY2:AY70,BA2:BA70,BC2:BC70,BE2:BE70,BG2:BG70,BI2:BI70,BK2:BK70,BM2:BM70" _
).Select
Range("BM2").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End Sub
This is the highlighted portion above the above code.
Bookmarks