Sub BMIND_DAQ()
    Columns("A:V").EntireColumn.AutoFit
    Range("A1:V1").Select
    Selection.Font.Bold = True
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="GtrigHeader"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(100, 160, 100) 'green
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="GtrigTrailer1"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(100, 200, 100)
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="GtrigTrailer2"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(100, 255, 100)
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="HitTime"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(255, 200, 100) ' orange
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="HitAmplitude"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(200, 100, 255) ' purple
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
       
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="SpillHeaderA"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(0, 150, 255) ' blue
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="SpillHeaderB"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(10, 160, 255) ' blue
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="SpillTrailerA"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(20, 170, 255) ' blue
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="SpillTrailerB"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(40, 190, 255) ' blue
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="SpillTime"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(60, 210, 255) ' blue
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="TDM / Start"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(160, 90, 90) ' blue
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="TDM / End"
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(140, 80, 80) ' blue
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    ' deselect filter and set color to none for cell A1
    ActiveSheet.Range("A:A").AutoFilter Field:=1
    Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    'auto filter
    Range("A1:V1").Select
    Selection.AutoFilter
    Selection.AutoFilter
End Sub