遍历工作表生成工作簿以某单元格部分字段命名PDF

向大佬请假宏的问题
我要把所有工作表生成单个PDF文件，并以当前活动表某个单元格的最后4个数字命名为PDF文件名，请教大佬们这图中标红的代码要怎么写啊
附上代码：
Sub SheetConvertToPDF2()
Dim sh As Worksheet '定义循环工作表
Dim filename As String '定义输出的PDF文件名
On Error GoTo errorhandle: '处理报错
For Each sh In ThisWorkbook.Worksheets '循环将工作表导出PDF
sh.Activate '激活当前工作表
filename = _
"C:\Users\XXXDesktop\XXX" & "\" & Trim(ActiveSheet.Range("G6").Value) & ".pdf" '定义PDF保存路径、以表单名称为PDF文件名
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=filename _
, quality:=xlQualityStandard, _
IncludeDocProperties:=Ture, IgnorePrintAreas:=False, OpenAfterPublish:= _
False 'OpenAfterPublish定义另存为pdf后不打开
Next
errorhandle:
End Sub