Erro 1004

[D_BOB]

Pessoal,

criei uma função para fazer as bordas em minha planilha, conforme código abaixo:

Public Function Borda()

dim celulas as string

celulas = "B6:Y7,Z6:AW7"

Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeLeft).LineStyle = xlContinuous

Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeLeft).Weight = xlThin

Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeTop).LineStyle = xlContinuous

Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeTop).Weight = xlThin

Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeBottom).LineStyle = xlContinuous

Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeBottom).Weight = xlThin

Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeRight).LineStyle = xlContinuous

Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeRight).Weight

End Function

ok o código funciona perfeitamente, até eu fechar a planilha. quando abro novamente ele apresenta:

"erro em tempo de execução '1004'

Não é possível definir a propriedade weight da classe border"

e não funciona mais, se eu abrir uma nova planilha, e copiar o codigo pra lá, o codigo volta a rodar, se eu fechar e abrir de novo, para tudo. Alguém tem alguma ideia?

[kuroi]

d_bob, nesse tópico aqui, o cara ta co mesmo problema q o seu, veja se o ultimo post te ajuda em alguma coisa: http://scriptbrasil.com.br/forum/index.php?showtopic=138995

fora isso, veja se esse artigo da microsoft ajuda. a propriedade q ele tenta setar é diferente, mas parece ser um problema parecido co seu: http://support.microsoft.com/?scid=kb%3Ben...mp;x=14&y=9