Need help with For Each WS in Worksheet method

[Akbarov]

Hello dear community,

I have VBA code which works perfectly fine for one sheet, I want to modify it to work for each sheet.
If WS range (E69) = "Run VBA" to run VBA + loop , else ignore..

 For Each WS In Worksheets
    If (WS.Name) <> "Run VBA" Then
        ThisWorkbook.Worksheets(WS.Name).Activate
        'Run VBA and loop...'

Code is something like this...
Instead of sheet ("DATA") I want to run code for each sheet which in cell E69 is = "Run VBA"
Is it simple or need complex change?

Sub XL2()
Dim wkname, pptname, currentPath As String

Application.DisplayAlerts = False


'Other Values

pptname = "Temp.pptx"
currentPath = ThisWorkbook.Path


'Ópening Powerpoint
Set ppApp = CreateObject("Powerpoint.Application")
Set pPres = ppApp.Presentations.Open(currentPath & Application.PathSeparator & pptname, msoFalse, msoCTrue, msoCTrue)
'Opening Excel
Set wk = ThisWorkbook



sldtoDuplicate = 1

Dim myvalues
myvalues = Array("DATA")
For my = LBound(myvalues) To UBound(myvalues)

        Set Sh = wk.Worksheets((myvalues(my)))
    
        
        i = 0
        For j = 0 To Sh.ChartObjects.Count
        
            For Each obj In Sh.ChartObjects
            '    Debug.Print
            
                
                If obj.TopLeftCell.Column = Sh.Range("F80").Offset(0, i).Column Then
                    'Duplicate First Slide
                    Set pattrenSlide = pPres.Slides(sldtoDuplicate)
                    Set sldrange = pattrenSlide.Duplicate
                    sldrange.MoveTo (pPres.Slides.Count)
                    Set sld = pPres.Slides(pPres.Slides.Count)

 

[Sequoyah]

Hi Akbarov, try this:

Dim WS As Worksheet

For Each WS In ThisWorkbook.Sheets
    If WS.Range("E69").Value = "Run VBA" Then
        'your code here
        End If
     
      Next WS

 

[Akbarov]

Thank you very much for this.
But can you please tell me what to do with this part of code?

Dim myvalues
myvalues = Array("DATA")
For my = LBound(myvalues) To UBound(myvalues)

        Set Sh = wk.Worksheets((myvalues(my)))

 

[Akbarov]

Thank you very much for this.
But can you please tell me what to do with this part of code?

Dim myvalues
myvalues = Array("DATA")
For my = LBound(myvalues) To UBound(myvalues)

        Set Sh = wk.Worksheets((myvalues(my)))

Can anyone tell me please what to do with this part of code?

 

[Akbarov]

I tried like this, but loop wont stop... I have 3 sheets, it copy sheet1 data, sheet2 data, sheet3 data then again sheet1,sheet2,sheet3 and so on for ever...

  Dim WS As Worksheet

For Each WS In ThisWorkbook.Sheets
    If WS.Range("E66").Value = "Run VBA" Then
        'your code here
        Set sh = wk.ActiveSheet