title: Loop through a list of Worksheets and copy paste data into summary sheet
body: <p>Hello guys I am trying to loop through a list of specific worksheets that are named in a certain range and then copy paste data from those sheets into a summary sheet. </p>
  
  <p>So far I have this code:</p>
  
  <pre><code>Sub MacroToDoTheWork()
  
  Dim ws As Worksheet
  Dim ZeileUntersucht As Integer
  Dim ZeileEintragen As Integer
  Dim sheet_name As Range
  
  
  ZeileUntersucht = 17  
  ZeileEintragen = 2
  
  For each sheet_name in Sheets("Frontend").Range("L21:L49")
  
   For ZeileUntersucht = 20 To 515
      If ws.Cells(ZeileUntersucht, 238).Value = "yes" Then
          Worksheets("Market Place Output").Cells(ZeileEintragen, 1) = ws.Cells(ZeileUntersucht, 1)
          ZeileEintragen = ZeileEintragen + 1
  
      End If
  Next ZeileUntersucht
  
  Next sheet_name
  
  End Sub
  </code></pre>
  
  <p>The For loop is working and goes through the selected sheets range to check for a criteria and pastes the values into another sheet. What I am having issues with is the For each loop. Getting this loop to work for a list of worksheets. The Frontend Range L21:L49 is the range where the worksheet names are stored.</p>
  
  <p>If you need further information, please ask</p>