Running a macro for every sheet with a name listed in a range

[coan29001]

Hi, thanks to some help I got this code running. This code copiy/pastes new columns (not yet existing) from sheet "List" to sheet "Students".

Dim wb As Workbook: Set wb = ThisWorkbook

With wb
Dim LastTemplateCol As Long: LastTemplateCol = .Worksheets("List").Cells(1, Columns.Count).End(xlToLeft).Column


      For i = 2 To LastTemplateCol

          Dim TempTask As String: TempTask = .Worksheets("List").Cells(1, i).Value
          Dim LastStudentCol As Long: LastStudentCol = .Worksheets("Students").Cells(1, Columns.Count).End(xlToLeft).Column
    
                For t = 2 To LastStudentCol
    
                Dim StudTask As String: StudTask = .Worksheets("Students").Cells(1, t).Value
                Dim Exists As Boolean: Exists = False
    
                  If TempTask = StudTask Then
                    Exists = True
                    GoTo taskloop:
                  Else
                    GoTo studloop:
                  End If
    
            studloop:
                Next t

        If Exists = False Then

          .Worksheets("List").Cells(1, i).Columns.EntireColumn.Copy
          .Worksheets("Students").Cells(1, LastStudentCol + 1).PasteSpecial
        End If

      taskloop:
      Next i

End With

This all works fine for sheet "Students". But I want to run this code for every sheet with a name that is listed in sheet "Sheetnames", range F2:F39.

How do I go about this? I'm not sure where to go... Many thanks in advance for helping me as a newbie in vba.

 

[Joe4]

Welcome to the Board!

Here is a little block of code to show you how to look through all those sheets:

Sub WorksheetLoop()

    Dim cell As Range
    Dim ws As Worksheet
    
'   Loop through all sheets
    For Each cell In Sheets("Sheetnames").Range("F2:F39")
        If cell.Value <> "" Then
'           Set woorksheet object
            Set ws = Sheets(cell.Value)
'           Work with worksheet
            With ws
'               YOUR CODE HERE
            End With
        End If
    Next cell

End Sub