Hi Dennis,
In case the used range does not start in column A, better would be:
Sub Tester()
Dim i As Integer
Dim j As Integer
With ActiveSheet.UsedRange.Columns
j = .Column + .Count
End With
For i = j - 1 To 1 Step -1
If Application.CountIf(Columns(i), "*Total*") = 0 Then
Columns(i).Delete
End If
Next i
End Sub
---
Regards,
Norman
"Dennis" wrote in message
. com...
Works perfect, thanx Norm!!!!
Dennis
===================
In article , "Norman Jones"
wrote:
Hi Dennis,
Try:
Sub Tester()
Dim i As Integer
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Application.CountIf(Columns(i), "*Total*") = 0 Then
Columns(i).Delete
End If
Next i
End Sub
|