test colour highlight code

[mdmackillop]

Private Sub CommandButton21_Click()
    With Worksheets("Report").Activate
        With Range("A1" & Range("AS" & Rows.Count).End(xlUp))
            .AutoFilter Field:=45, Criteria1:="2 - WAY"
            On Error Resume Next
            .Offset(1).SpecialCells(12).EntireRow.Delete
        End With
        .AutoFilterMode = False
    End With
End Sub