I'm trying to perform various actions to each sheet in an open workbook. The amount of sheets varies as well as the name of each sheet. I'm having trouble getting my program to make it past the first worksheet. I'll post a simplified version of what I have so far.

Thanks in advance,

~R

Sub LoopColumnDelete()

    Dim ws As Worksheet
    Dim a As Range
     
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            Range("I:IV").Delete
        
        End With
    Next ws
     
    Application.CutCopyMode = False
End Sub