Código para salvar planilha em pdf com Numero do pedido

Usei este código para salvar minha planilha com numero do pedido cada vez que salvo gera um numero de pedido diferente.

Basta criar um botão SalvarPDF no seu trabalho copiar e colar o código.
altere o a letra e o numero da célula conforme sua necessidade.

Segue o código.
Bom proveito!!!

Sub SalvarPDF()
Dim y As Integer
y = Range("j7").Value + 1
Range("j7") = y


Dim Nome As String
Dim SDate As String
Nome = Range("j7").Value
SDate = Now
If Nome <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"
Else
MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

End If

End Sub