使用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)