如果工作表名称为数字，则使用CStr将其转换为字符串。我还添加了一些语法来完成您提供的代码。

Sub Create_Consolidated_File()
    
    Dim tB As Excel.Workbook
    Dim wB As Excel.Workbook
    Dim ExportArray As Variant
    Dim ShName As Variant
    Dim ExportName As String
    
    Dim varResult As Variant
    
    Dim Attachments As Range
    Set Attachments = Range("D3:E28")
    
    
    
    For Each Row In Attachments
        For Each cell In Row
    
        Set tB = ThisWorkbook
        ExportArray = Array(cell.Value) 'work on this bit to define as the sheet names in columns D & E
    
        For Each ShName In ExportArray
            Debug.Print (ShName)
            tB.Sheets(CStr(ShName)).Copy
        Next
    Next
    Next
    
    End Sub