Problem Cycling Through Worksheets VBA

[carstenp]

I'm pulling my hair out trying to figure out why this isn't working. I run the macro from Sheet2 and it just ends up clearing everything on that sheet rather than on the ws that's up in the rotation. It will work if I activate the ws first, but that doesn't seem like the best solution. Please help

Dim ws as Worksheet
Dim QueryCollection as Collection
Dim i as Integer, CIRows as Integer, CISectorColumn as Integer

'lots of prior code

   For Each ws In ThisWorkbook.Worksheets
        If (ws.Name = "A" Or ws.Name = "B" Or ws.Name = "C") Then
                
            With Sheet1
                Set QueryCollection = New Collection
                    For i = 6 To CIRows
                        If .Cells(i, CISectorColumn) = ws.Name Then
                            QueryCollection.Add (i)
                        End If
                    Next i
            End With
                
             ws.Activate      'Why do I need this line???
            
            With ws
                'Do a bunch of stuff
            End With
        End If
    Next ws

 

[Fluff]

ws.Activate 'Why do I need this line???

That entirely depends on the code located at

'Do a bunch of stuff

 

[DanteAmor]

Dim i as Integer, CIRows as Integer, CISectorColumn as Integer

'lots of prior code
   For Each ws In ThisWorkbook.Worksheets
        If (ws.Name = "A" Or ws.Name = "B" Or ws.Name = "C") Then
             
            '*** The following process only does it on sheet1   
            With Sheet1
                Set QueryCollection = New Collection
                    For i = 6 To CIRows    '<---- This value is 0, so it does not enter this cycle.
                        If .Cells(i, CISectorColumn) = ws.Name Then
                            QueryCollection.Add (i)
                        End If
                    Next i
            End With
             '*** End Process
                
             ws.Activate      'Why do I need this line???  'If you work with the ws object, it is not necessary to select the sheet.           
            With ws
                'Do a bunch of stuff
            End With
        End If
    Next ws

Better explain what you need to do, what data you have and the final result.

 

[carstenp]

That entirely depends on the code located at

Turns out it was as simple as

With ws​
Cells.Delete​
End With​

To

With ws​
.Cells.Delete​
End With​

Crazy the amount of stress a missed period can have. Thanks for your help

 

[Fluff]

Glad you solved it & thanks for the feedback