VBA Excel - Pular arquivos não encontrado

[Xspider]

Olá pessoal,

Estou precisando de uma ajuda urgente, eu criei uma macro no excel onde ela vai abrir o arquivo sem seguida vai alterar algumas informações e depois vai salvar e fechar o mesmo. Ao termino dessa etapa ele vai abrir o proximo arquivo de outra campanha mas da mesma data.

Agora qual o problema...

Quando não tem o arquivo de uma certa campanha devido ela não ter trabalhado a macro para informando que o arquivo não foi encontrado. Gostaria de saber se existe algum código onde eu especifico que quando não houver esse arquivo ele pule e vai para o proximo.

Agradeço a atenção de todos que puderem me ajudar!

Abaixo está o codigo da macro.

Sub Arrumar()

Dim NCampanha, NData As String

a = 2

Windows("Campanhas CSR.xls").Activate

NCampanha = Cells(a, 1).Value

While NCampanha <> ""

NCampanha = Cells(a, 1).Value

NmCampanha = Cells(a, 2).Value

NData = Cells(2, 3).Value

DataR = NData

NData = Format(NData, "dd.mm.yy")

Endereco = NCampanha & " - " & NData & ".xls"

Caminho = "C:\Documents and Settings\te34051\My Documents\Bases e Relatórios Santander\CONTA - CORRENTE\OUTBOUND\2 - Fevereiro\Extração\"

Arquivo = Caminho & Endereco

Workbooks.Open Filename:=Arquivo

Rows("1:2").Delete

Rows("2").Delete

Rows("2").Delete

Columns(1).Select

Selection.Insert Shift:=xlToRight

Cells(1, 1) = "DATA"

b = 2

NOper = Cells(b, 3).Value

While NOper <> ""

Cells(b, 1) = DataR

Cells(b, 2) = NmCampanha

b = b + 1

NOper = Cells(b, 3).Value

Wend

a = a + 1

NCampanha = Cells(a, 1).Value

Windows(Endereco).Activate

ActiveWorkbook.Save

Windows(Endereco).Close

Wend

End Sub

Att,

David

[João.Neto]

Adicione a referência Microsoft Scripting Runtime

Utilize este código:

Dim fso As Scripting.FileSystemObject

Set fso = new Scripting.FileSystemObject

If fso.FileExists("C:\MeuArquivo.xls") Then

... Se o arquivo existir eu executo minhas instruções ...

End If