创建并使用数组来选择工作表

Question

第一篇文章在这里，如果我做错了事，我深表歉意，我充其量是一名热情的业余爱好者。

我试图根据图纸名称列表自动创建一个数组，然后选择那些图纸以允许我打印为PDF。

基本上尝试自动复制以下代码，而不必为创建的每个新工作表进入VBA。

    Sheets(Array("Jobs", "5125", "5225", "5228", "5230", "5232", "5234", "5245", "5249", "5251")).Select

我创建该数组的许多尝试之一：

    Dim strarry() As String
    Dim qtyrows As Long
    Dim i As Long

    qtyrows = ThisWorkbook.Sheets("Variables").Cells(Rows.Count, 3).End(xlUp).Row
    ReDim strarry(1 To qtyrows)

    For i = 1 To qtyrows
        strarry(i) = ThisWorkbook.Sheets("Variables").Cells(i, 3).Value
    Next i

    Sheets(strarry(i)).Select

我尝试了各种方法来创建数组，但是似乎没有在每个工作表名称的两边加上引号。