Использование цикла For для перебора имен рабочих листов

Question

Я хотел бы использовать цикл for для сокращения этого кода. Я знаю, как перебирать диапазон, но я не знаю, как лучше перебирать имена рабочих листов, такие как ws1, ..., ws7 Я надеялся на что-то вроде этого:

For Each cell In TotalVals

cell.Value = TotalUniqueValues( __ ,Criteria)

Next cell

    Worksheets("RTYL TRACKER").Range("D5").Value = TotalUniqueValues(ws1, Criteria)
    Worksheets("RTYL TRACKER").Range("D6").Value = TotalUniqueValues(ws2, Criteria)
    Worksheets("RTYL TRACKER").Range("D7").Value = TotalUniqueValues(ws3, Criteria)
    Worksheets("RTYL TRACKER").Range("D8").Value = TotalUniqueValues(ws4, Criteria)
    Worksheets("RTYL TRACKER").Range("D9").Value = TotalUniqueValues(ws5, Criteria)
    Worksheets("RTYL TRACKER").Range("D10").Value = TotalUniqueValues(ws6, Criteria)
    Worksheets("RTYL TRACKER").Range("D11").Value = TotalUniqueValues(ws7, Criteria)