如何用VBA將一個工作簿裏多張表的名字與人數彙總在一張表裏

Sub text1()

Worksheet.Add.Name="彙總"

For Each Sheet In Worksheets

k = k + 1

x = y.usedRange.Rows.Count

sheets("彙總").Cells(k, 1) = Sheet.Name

sheets("彙總").Cells(k, 2) =x

Next

End Sub