如一工作簿中,工作表依序为名称为1，2，3..........99 ,100的共100张工作表
想在循环程序依表名的数字选定
这样写为什么不行？为什么结果总是错误9“下标越界”？
Sub 数字()
Dim x As Integer
For x = 1 To 100（数字是数值型）
Dim R As String
R = Application.Text(x, 0)（将循环后的数字转化为文本型数值了）
Sheet3.Cells(1, 1) = Sheets("r").Cells(1, 1)
Next x
End Sub
谢谢指导

Sheets(R)，不要加双引号