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