您可以在任何列中保留工作表名称（即列C）。

Sub ExportAsPDF()
    Dim FolderPath As String
    Dim shtNames, sht As Worksheet
    Set sht = Sheets("Figures")
    shtNames = Application.Transpose(sht.Cells(1, 3).CurrentRegion.Value)
    For i = 1 To UBound(shtNames)
        shtNames(i) = CStr(shtNames(i)) 'Covert Sheet name to a string
    Next
    Sheets(shtNames).Select
    FolderPath = "C:\Users\Trainee1\Desktop\PDFs"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sht.Range("A1") + "All FV.pdf", _
        openafterpublish:=False, ignoreprintareas:=False
    sht.Select
    ActiveWorkbook.Save
    MsgBox "All PDF's have been successfully exported."
End Sub

字符串

您可以在工作表上有一个工作表列表，并使用它来创建工作表数组

Sub MakeArraySheets()
    Dim sh As Worksheet
    Dim ArraySheets() As String
    Dim x As Variant
    Dim ws As Worksheet
    Dim c As Range, rng As Range
    
    Set ws = Sheets("SheetList") 'name of sheet with the sheet names in column A
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    For Each c In rng.Cells

        ReDim Preserve ArraySheets(x)
        ArraySheets(x) = c
        x = x + 1
        
    Next c

    Sheets(ArraySheets).Select

'    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
'                                    ThisWorkbook.Path & "\" & ThisWorkbook.Name, _
'                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
'                                    IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub

字符串