Deleting Columns that sum to less than 1000

[bgold04]

I have tried the following and get no syntax errors:

Sub Delete1000()

    Dim lngCol As Long
    Dim ws As Worksheet
  
    Set ws = ActiveSheet
  
    With ws
        For lngCol = .Columns("T").Column To .Columns("CYL").Column Step -1
            If WorksheetFunction.Sum(.Columns(lngCol)) <= 1000 Then
                .Columns(lngCol).EntireColumn.Delete
            End If
        Next lngCol
    End With
End Sub

It just simply doesn't work!

Suggestions?

 

[Akuini]

@bgold04 welcome to the Forum
It should be:

For lngCol = .Columns("CYL").Column To .Columns("T").Column Step -1