Hi, i have multiple columns with headers titled Total, i tried using the below code, but only one column with title Total gets deleted, how can i get the code to delete muliple columns?
Hdrs = Array("Total")
For i = LBound(Hdrs) To UBound(Hdrs)
Set Found = .Rows(6).Find(what:=Hdrs(i))
If Not Found Is Nothing Then Found.EntireColumn.Delete
Next i
Hdrs = Array("Total")
For i = LBound(Hdrs) To UBound(Hdrs)
Set Found = .Rows(6).Find(what:=Hdrs(i))
If Not Found Is Nothing Then Found.EntireColumn.Delete
Next i
Last edited: