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
Thank you![]()
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
Bookmarks