I have a worksheet that has 8 columns and 84 rows. I have it set up to print on 3 separate pages with headers on each page. I need VBA code to highlight columns A & B when I enter "In Box" in column E. I also need the code to search column F for the word "Shipped" and empty the contents in the cells of the corresponding rows, then move the empty rows to the end of the table without deleting them and without changing format.
Thank you!
Excel Facts
What do {} around a formula in the formula bar mean?
Below is the code I have to Highlight and empty the cells. Can't figure out to combine and incorporate the moving of cells.
Code:
Sub ClearCells()'
' Macro1 Macro
'
Range("H3").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A3:G3").Select
Range("A3:G3").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H4").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A4:G4").Select
Range("A4:G4").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H5").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A5:G5").Select
Range("A5:G5").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H6").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A6:G6").Select
Range("A6:G6").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H7").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A7:G7").Select
Range("A7:G7").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H8").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A8:G8").Select
Range("A8:G8").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H9").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("9:G9").Select
Range("9:G9").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H10").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A10:G10").Select
Range("A10:G10").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H11").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A811:G11").Select
Range("A811:G11").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H12").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A12:G12").Select
Range("A12:G12").ClearContentsh
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H13").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A13:G13").Select
Range("A13:G13").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H14").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A14:G14").Select
Range("A14:G14").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H15").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A15:G15").Select
Range("A15:G15").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H16").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A16:G16").Select
Range("A16:G16").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H17").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A17:G17").Select
Range("A17:G17").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H18").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A18:G18").Select
Range("A18:G18").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H19").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A19:G19").Select
Range("A19:G19").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H20").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A20:G20").Select
Range("A20:G20").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H21").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A21:G21").Select
Range("A21:G21").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("EH22").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A22:G22").Select
Range("A22:G22").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H23").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A23:G23").Select
Range("A23:G23").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H24").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A24:G24").Select
Range("A24:G24").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H25").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A25:G25").Select
Range("A25:G25").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H26").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A26:G26").Select
Range("A26:G26").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H27").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A27:G27").Select
Range("A27:G27").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H28").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A28:G28").Select
Range("A28:G28").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H31").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A31:G31").Select
Range("A31:G31").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H32").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A32:G32").Select
Range("A32:G32").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H33").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A33:G33").Select
Range("A33:G33").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H34").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A34:G34").Select
Range("A34:G34").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H35").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A35:G35").Select
Range("A35:G35").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H36").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A36:G36").Select
Range("A36:G36").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H37").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A37:G37").Select
Range("A37:G37").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H38").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A38:G38").Select
Range("A38:G38").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H39").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A39:G39").Select
Range("A39:G39").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H40").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A40:G40").Select
Range("A40:G40").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H41").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A41:G41").Select
Range("A41:G41").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H42").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A42:G42").Select
Range("A42:G42").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H43").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A43:G43").Select
Range("A43:G43").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H44").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A44:G44").Select
Range("A44:G44").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H45").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A45:G45").Select
Range("A45:G45").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H46").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A46:G46").Select
Range("A46:G46").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H47").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A47:G47").Select
Range("A47:G47").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H48").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A48:G48").Select
Range("A48:G48").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H49").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A49:G49").Select
Range("A49:G49").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H50").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A50:G50").Select
Range("A50:G50").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H51").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A51:G51").Select
Range("A51:G51").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H52").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A52:G52").Select
Range("A52:G52").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H53").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A53:G53").Select
Range("A53:G53").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H54").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A54:G54").Select
Range("A54:G54").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H55").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A55:G55").Select
Range("A55:G55").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H56").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A56:G56").Select
Range("A56:G56").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H59").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A59:G59").Select
Range("A59:G59").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H60").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A60:G60").Select
Range("A60:G60").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H61").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A61:G61").Select
Range("A61:G61").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H62").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A62:G62").Select
Range("A62:G62").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H63").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A63:G63").Select
Range("A63:G63").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H64").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A64:G64").Select
Range("A64:G64").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H65").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A65:G65").Select
Range("A65:G65").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H66").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A66:G66").Select
Range("A66:G66").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H67").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A67:G67").Select
Range("A67:G67").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H68").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A68:G68").Select
Range("A68:G68").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H69").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A69:G69").Select
Range("A69:G69").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H70").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A70:G70").Select
Range("A70:G70").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H71").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A71:G71").Select
Range("A71:G71").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H72").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A72:G72").Select
Range("A72:G72").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H73").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A73:G73").Select
Range("A73:G73").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H74").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A74:G74").Select
Range("A74:G74").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H75").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A75:G75").Select
Range("A75:G75").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H76").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A76:G76").Select
Range("A76:G76").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H77").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A77:G77").Select
Range("A77:G77").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H78").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A78:G78").Select
Range("A78:G78").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H79").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A79:G79").Select
Range("A79:G79").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H80").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A80:G80").Select
Range("A80:G80").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H81").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A81:G81").Select
Range("A81:G81").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H82").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A82:G82").Select
Range("A82:G82").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H83").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A83:G83").Select
Range("A83:G83").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H84").Select
If ActiveCell.FormulaR1C1 = "Shipped" Then
Range("A84:G84").Select
Range("A84:G84").ClearContents
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("H1:H84").ClearContents
Range("A1").Select
End Sub
Sub HighlightCells()
'
' Macro5 Macro
'
'
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Cells.Interior.ColorIndex = 0
Next ws
Range("E3").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A3:B3").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F3").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C3").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E4").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A4:B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F4").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E5").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A5:B5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F5").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E6").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A6:B6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F6").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E7").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A7:B7").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F7").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C7").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E8").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A8:B8").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F8").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C8").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E9").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A9:B9").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F9").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C9").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E10").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A10:B10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F10").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E11").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A11:B11").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F11").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C11").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E12").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A12:B12").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F12").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C12").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("F12").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C12").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E13").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A13:B13").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F13").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C13").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E14").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A14:B14").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F14").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C14").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E15").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A15:B15").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F15").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C15").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E16").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A16:B16").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F16").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C16").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E17").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A17:B17").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F17").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C17").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E18").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A18:B18").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F18").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C18").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E19").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A19:B19").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F19").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C19").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E20").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A20:B20").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F20").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C20").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E21").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A21:B21").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F21").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C21").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E22").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A22:B22").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F22").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C22").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E23").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A23:B23").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F23").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C23").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E24").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A24:B24").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F24").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C24").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E25").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A25:B25").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F25").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C25").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E26").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A26:B26").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F26").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C26").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E27").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A27:B27").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F27").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C27").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E28").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A28:B28").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F28").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C28").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E31").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A31:B31").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F31").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C31").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E32").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A32:B32").Select
With Select1ion.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F32").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C32").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E33").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A33:B33").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F33").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C33").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E34").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A34:B34").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F34").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C34").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E35").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A35:B35").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F35").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C35").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E36").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A36:B36").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F36").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C36").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E37").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A37:B37").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F37").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C37").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E38").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A38:B38").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F38").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C38").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E39").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A39:B39").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F39").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C39").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E40").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A40:B40").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F40").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C40").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E41").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A41:B41").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F41").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C41").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E42").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A42:B42").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F42").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C42").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E43").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A43:B43").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F43").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C43").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E44").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A44:B44").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F44").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C44").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E45").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A45:B45").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F45").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C45").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E46").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("4A6:B46").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F46").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C46").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E47").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A47:B47").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F47").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C47").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E48").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A48:B48").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F48").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C48").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E49").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A49:B49").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F49").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C49").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E50").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A50:B50").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F50").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C50").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E51").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A51:B51").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F51").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C51").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E52").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A52:B52").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F52").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C52").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E53").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A53:B53").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F53").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C53").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E54").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A54:B54").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F54").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C54").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E55").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A55:B55").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F55").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C55").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E56").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A56:B56").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F56").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C56").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E59").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A59:B59").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F59").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C59").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E60").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A60:B60").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F60").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C60").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E61").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A61:B61").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F61").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C61").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E62").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A62:B62").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F62").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C62").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E63").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A63:B63").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F63").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C63").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E64").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A64:B64").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F64").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C64").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E65").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A65:B65").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F65").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C65").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E66").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A66:B66").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F66").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C66").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E67").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A67:B67").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F67").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C67").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E68").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A68:B68").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F68").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C68").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E69").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A69:B69").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F69").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C69").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E70").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A70:B70").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F70").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C70").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E71").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A71:B71").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F71").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C71").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E72").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A72:B72").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F72").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C72").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E73").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A73:B73").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F73").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C73").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E74").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A74:B74").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F74").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C74").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E75").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A75:B75").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F75").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C75").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E76").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A76:B76").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F76").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C76").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E77").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A77:B77").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F77").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C77").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E78").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A78:B78").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F78").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C78").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E79").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A79:B79").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F79").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C79").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E80").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A80:B80").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F80").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C80").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E81").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A81:B81").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F81").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C81").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E82").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A82:B82").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F82").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C82").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E83").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A83:B83").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F83").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C83").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("E84").Select
If ActiveCell.FormulaR1C1 = "In Box" Then
Range("A84:B84").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Range("F84").Select
If ActiveCell.FormulaR1C1 = "D" Then
Range("C84").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
Range("A1").Select
End Sub
We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel
Which adblocker are you using?
Disable AdBlock
Follow these easy steps to disable AdBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the icon in the browser’s toolbar. 2)Click on the "Pause on this site" option.
Go back
Disable AdBlock Plus
Follow these easy steps to disable AdBlock Plus
1)Click on the icon in the browser’s toolbar. 2)Click on the toggle to disable it for "mrexcel.com".
Go back
Disable uBlock Origin
Follow these easy steps to disable uBlock Origin
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
Go back
Disable uBlock
Follow these easy steps to disable uBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.