Excel Exportar planilhas em vários PDF - VBA

[Carolina Nemeth]

Olá pessoal!

tenho o código abaixo que exporta as planilhas de um pasta, cada uma em um PDF. Mas queria uma alteração: ao invés de abrir uma caixa de mensagem para inserir o nome de cada documento, que o código nomeie cada PDF conforme a célula C10 de cada planilha. Alguém pode me ajudar?

Sub Relatorio_PDF()
Dim sh As Worksheet, i As Integer

' Macro3 Macro
'
'Instrução para Salvamento do Relatório em PDF na area de trabalho

 
    Dim strNome As String 'Declaração do nome para abertura do box de inserção de número do registro
   Dim Caminho As String 'Declaração endereço onde será salvo o documento
   Dim Abrir As Boolean 'Declaração para abertura do registro após salvamento
   Dim m As String 'Nome da planilha
   
   
  For Each sh In ThisWorkbook.Worksheets
  If VBA.LCase(VBA.Trim(sh.Name)) <> VBA.LCase("mapa 0") And _
     VBA.LCase(VBA.Trim(sh.Name)) <> VBA.LCase("alimentando mapas") Then
             
     
       strNome = InputBox("Insira o Número do Relatório " & m, "Gerador de Relatório em .pdf")
       Caminho = "C:\Users\" & Environ$("Username") & _
       "\Desktop\" & strNome
 
'Sai do processo de salvamento
   If strNome = "" Then
        MsgBox ("Salvamento Cancelado!!!")
    Exit Sub
    End If
    End If

Obrigada!

[Visitante]

Substitua esta linha

strNome = InputBox("Insira o Número do Relatório " & m, "Gerador de Relatório em .pdf")

 

por esta

strNome = sh.[C10]