Guru do Excel e Power BI

Como salvar .pdf com valor da célula personalizada "00045"
A célula O2 está personalizada em "00000", mas salva o arquivo "45.pdf" ao invés de "000045.pdf"
OBS: o valor de "O2" nunca será o mesmo.

Grato pela ajuda


Sub PDF2()

Dim sh As Worksheet
Dim TempFilePath As String
Dim TempFileName As String
Dim FileName As String
Dim vCelula As Range

For Each vCelula In Range("O2").Cells
vCelula.Value = vCelula.Value + 1
Next
ActiveWorkbook.Save


TempFilePath = "D:\PDF\"

'Loop through every worksheet
For Each sh In ThisWorkbook.Worksheets
FileName = ""

'Test A1 for a mail address
If sh.Range("M8").Value Like "?*@?*.?*" Then

'If there is a mail address in A1 create the file name and the PDF
TempFileName = TempFilePath _
& "CVLO" _
& " " _
& Sheets("A").Range("M3").Value _
& " " _
& Sheets("A").Range("O2").Value _
& Format(Now, " dd-mm-yyyy h-mm") _
& ".pdf"

FileName = RDB_Create_PDF(Source:=sh, _
FixedFilePathName:=TempFileName, _
OverwriteIfFileExist:=True, _
OpenPDFAfterPublish:=False)



End If

Next sh
End Sub

Onde está escrito [/b]substitua por:

Muito Obrigado! e me desculpe pelo post repetido.