Pessoal

alguém pode ajudar a resolver um problema na macro. A pessoa que fez não está mais trabalhando comigo e eu não tenho nenhum conhecimento sobre macros.
Está aparecendo a seguinte mensagem de erro:

ERRO DE COMPILAÇÃO
É impossível localizar o projeto ou a biblioteca

Segue a macro:

"

Public Sub GeraPlanilha()
'
'

dia_leitura = Format(Plan4.Cells(2, 13), "dd/mm/yy")
'dia_leitura = Plan10.Cells(2, 13)
Ano = Year(dia_leitura)
Mes = Format(Month(dia_leitura), "00")
Dia = Format(Day(dia_leitura), "00")
Mes2 = Format(dia_leitura, "mmmm")

Diretorio_Branco = "H:CorporativoCoprod2 OPERADOR DE PRODUÇÃO3 P1Boletim da sala de controle"  ' caminho dos arquivos diários"
Diretorio_Planilhas = "H:CorporativoCoprod2 OPERADOR DE PRODUÇÃO3 P1Boletim da sala de controle" & Mes & " - " & Mes2   ' caminho dos arquivos diários"
Arquivo_Branco = Diretorio_Branco & "BSC_em_branco.xls"              ' nome do arquivo em branco
Arquivo_Final = Diretorio_Planilhas & "BSC " & Dia & -Mes & -Ano & ".xls" ' nome arquivo final

'
Workbooks.Open Filename:=Arquivo_Branco

Windows("BSC P-08.xls").Activate
Range("C7:P31").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BSC_em_branco.xls").Activate
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False