Delete entire column if word "False" exists

Another:

Sub mikey3580()
With Range("A16:Z16")
    .Replace "FALSE", ""
    .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End With
End Sub