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