for each next

Sub Macro0428()
Dim wb As Workbook, s As Worksheet
For Each wb In Workbooks
For Each s In wb.Worksheets
s.Name = “作業用資料” & s.Index
Next s
Next wb
End Sub