Delete entire column if word "False" exists

Hi mikey3580

Try this

Option Explicit

Sub Delete_Columns()
  Dim Rng As Range, cel As Range
  Dim i As Long
  With Worksheets("Accruals")
    Set Rng = .Range("A16:Z16")
    For i = 26 To 1 Step -1
      If UCase(.Cells(16, i).Value) = "FALSE" Then
        .Columns(i).EntireColumn.Delete
      End If
    Next i
  End With
End Sub