How to high entired row based on data in a cell

[Dariusd7]

This one should be easy for you gurus. Basically I want to have an entire row highlight in a redish color if a cell in column K has a 1. But I would like to make this a button function. So that when a person clicks the button called find, it would highlight all rows where the cell in column k has a 1. and then I would like to have a button that when clicked would clear the highlight. Note column K would be a hidden column. It has a formula in it.

the highlight would be from column A to column G

I am attaching the file for you to see.

I highlighted one of the columns in the color I want so you would know when you write the code.

Thanks everyone...

[stnkynts]

Sub Highlight_Row()
Dim ws As Worksheet:    Set ws = Sheets("Overdue Traing Compliance") 'check your spelling

Application.ScreenUpdating = False

With ws
    .AutoFilterMode = False
    .Range("K2:K" & .Range("K" & Rows.Count).End(xlUp).Row).AutoFilter 1, 1
    .Range("A3:G" & .Range("K" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 3
    .AutoFilterMode = False
End With

Application.ScreenUpdating = True

End Sub

Sub Unhighlight_Row()
Dim ws As Worksheet:    Set ws = Sheets("Overdue Traing Compliance") 'check your spelling

ws.Range("A3:G" & ws.Range("K" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = 15

End Sub

[Dariusd7]

Thanks stnkynts. for the quick reply. and I will check my spelling.