Vba 循环字符串数组，错误'；9'；

我不明白为什么会出现错误“9”。我声明了字符串数组，然后我想使用数组值来设置工作表名称。我做错了什么

Dim wsText() As String
Dim sht As Worksheet
Dim wSum As Worksheet
Dim service As String
Dim supplier As String
Dim priceRange As String
Dim price As String
Dim Lrow As Integer, LastRow As Integer

Set sht = ThisWorkbook.Worksheets(4)
Set wSum = ThisWorkbook.Worksheets(Summary)

wsText = Array("<25K", "25K <100K", "100K <250K", "250K <500K", "500K <1M", "1M <5M", "5M <15M", "15M <30M", "30M <50M")

LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

    For Each element In wsText
        For i = 5 To LastRow
            For j = 13 To 47

                Lrow = wSum.UsedRange.Rows(wSum.UsedRange.Rows.Count).Row + 1

                service = ThisWorkbook.Worksheets(element.Value).Cells(i, 1).Text
                supplier = ThisWorkbook.Worksheets(element.Value).Cells(4, j).Text
                priceRange = ThisWorkbook.Worksheets(element.Value).Cells(2, 1).Text
                price = ThisWorkbook.Worksheets(element.Value).Cells(i, j).Text

                wSum.Cells(Lrow, 1) = service
                wSum.Cells(Lrow, 2) = supplier
                wSum.Cells(Lrow, 3) = priceRange
                wSum.Cells(Lrow, 4) = price
            Next j
        Next i
    Next element


End Sub

Dim wsText（）作为字符串
将sht变暗为工作表
将wSum设置为工作表
作为字符串的Dim服务
将供应商设置为字符串
将价格范围设置为字符串
暗淡无光的价格
Dim Lrow为整数，LastRow为整数
Set sht=此工作簿。工作表（4）
设置wSum=ThisWorkbook.工作表（摘要）
wsText=Array（“首先，此部分错误
此工作簿。工作表（摘要）
此处摘要用作变量，但在代码中看不到分配给它的内容。这将引发错误9。如果工作表名称本身是摘要，则在双引号内使用它，如
此工作簿。工作表（“摘要”）
对于初学者，此部分是错误的
此工作簿。工作表（摘要）
此处摘要用作变量，但在代码中看不到分配给它的内容。这将引发错误9。如果工作表名称本身是摘要，请在双引号内使用它，如
此工作簿。工作表（“摘要”）
将数组声明为变量

e、 g

Dim wsText作为变量
wsText=Array（“将数组声明为变量

e、 g

Dim wsText作为变量
wsText=Array（“++击败我：）删除了我的帖子非常感谢！我恨我自己，因为我不能仔细查看代码！这发生在我们所有人身上：）++击败我：）删除了我的帖子非常感谢！我恨我自己，因为我不能仔细查看代码！这发生在我们所有人身上：）
Dim wsText as variant
wsText = Array("<25K", "25K <100K", "100K <250K", "250K <500K", "500K <1M", "1M <5M", "5M <15M", "15M <30M", "30M <50M")