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
--
---
Regards,
Norman
"Dennis" wrote in message
m...
Ooops.... I meant delete all columns, not rows...sorry.
Dennis
====================
In article ,
(Dennis) wrote:
I would like to delete all rows with VBA that DO NOT contain the text
TOTAL.
Struuggling some with it so far.
TIA, Dennis
================