Delete entire column if word "False" exists

I have the following code, but it takes longer than expected to run. Is there anyway to speed this up? I am not sure if autofilter is a option. I just want to search through range A16:Z16 and if the word "FALSE" exists delete the entire column. The word "TRUE" is the only other word that would exist in range A16:Z16

Sub Delete_Columns()
    With Worksheets("Accruals (2)").Range("A16:Z16")
        Set rng = Worksheets("Accruals (2)").Range("A16:Z16").Find(What:="FALSE", _
            LookAt:=xlWhole, MatchCase:=False)
        Do While Not rng Is Nothing
            rng.EntireColumn.Delete
            Set rng = .FindNext
        Loop
    End With
End Sub

Thank you