请问一下工作表怎样循环

    For d = 1 To 31 '总共工作表数量
    wb1.Sheets(10).Cells(d + 3, 3) = wb2.Sheets(d).Cells(2, 4).Value
    wb1.Sheets(10).Cells(d + 3, 4) = wb2.Sheets(d).Cells(2, 5).Value
    wb1.Sheets(10).Cells(d + 3, 6) = wb2.Sheets(d).Cells(2, 8).Value
    Next
    
    For d = 1 To 31 '总共工作表数量
    wb1.Sheets(11).Cells(d + 3, 3) = wb2.Sheets(d).Cells(3, 4).Value
    wb1.Sheets(11).Cells(d + 3, 4) = wb2.Sheets(d).Cells(3, 5).Value
    wb1.Sheets(11).Cells(d + 3, 6) = wb2.Sheets(d).Cells(3, 8).Value
    Next
现在想把wb1.Sheets(10) - wb1.Sheets(50) 还有cells()里面 怎么循环，请大佬帮忙回复一下，谢谢你了！