Perguntinha básica: o que você quer dizer com "que contenha a parte central do código"? Essa parte central faz parte do nome do arquivo ou está dentro do arquivo? Se for o nome do arquivo, como são os nomes dos arquivos?

Oi Wagner
Faz parte do nome do arquivo, o nome dos arquivos tem sempre uma mesma sequencia ex:
começam com 40-125789-00, 40-423878-00, 10-568987-00 etc. o que vou digitar na célula são os 6 numeros centrais.

obrigado

A parte central que você digitará na célula e a parte central no nome do arquivo sempre terá 6 caracteres? Sempre serão números?

Correto Wagner, serão sempre 6 caracteres e sómente numeros

mwilson,

Boa Noite!

Bem... ainda faltaram alguns detalhes, todavia, segue, abaixo, um pequeno exemplo que faz o que você pediu: apagar arquivos PDF, em uma pasta determinada, cuja parte do nome do arquivo (os 6 números que ficam no meio) seja igual a parte do nome que foi digitado em uma célula (a parte dos 6 números que ficam no meio desse nome). Para o exemplo do arquivo anexo, estou utilizando a célula B1 para digitar o nome que deve ser pesquisado na pasta de arquivos PDF's. Se os arquivos forem encontrados, serão listados na própria planilha e em seguida apagados da pasta. Você deve atentar para trocar o caminho da pasta que coloquei no código para o caminho onde esta seus arquivos PDF's.

Veja se assim lhe atende.

Wagner,

Bom dia

Puxa vida.. ficou exatamente o que eu precisava.. muito bom
a unica coisa é que na planilha fica listado o nome de só um arquivo, mas não tem problema algum
muito obrigado

valeu
Mário Wilson

mwilson,

Bom Dia!

Você tem razão! É que na pressa, acabei esquecendo de incrementar a linha onde os arquivos são registrados. Essa nova versão já conserta isso.

Boa tarde!!

Uma outra forma (não tão sofisticada quanto a do Wagner).
Digite em A1 os caracteres do meio **-008-**

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim fName As String
    Dim fPath As String
    Dim fullName As String

    Const pdfcol As String = "A"
     
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> Columns(pdfcol).Column Then Exit Sub
    If Target.Row < 2 Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    If Not IsNumeric(Target.Value) Then Exit Sub
     
             'Digite aqui o seu caminho
    fPath = "C:Documents and SettingsUserDesktopArquivosPDF"
     
    fName = ActiveCell.Value
    fName = Mid(fName, 4, 3)
     
    fName = "*" & fName & "*" & ".pdf"
     
    fullName = fPath & Dir(fPath & fName)
     
    If fullName = fPath Then
         On Error Resume Next
    Else
        Kill "C:Documents and SettingsUserDesktopArquivosPDF40-" & Range("A1").Value & "-00.pdf"
    End If
     
End Sub

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.