Duvida com tabela oculta

[adriano944]

Pessoal..

estou com a seguinte duvida...

tenho uma tabela chamada "desenhos novos", onde a mesma está oculta.

porem nesta tabela existem diversas informações que não podem ser alteradas, pois esta tabela esta vinculada a outra... sendo assim... criei uma tabela chamada "Temporaria". Nesta tabela temporaria irei copiar todas as informações da tabela Desenhos novos(que esta oculta) para a tabela temporaria... porem quando insiro a formula abaixo é apresentado o erro a seguir...

Formula:

Sub CopiaDesenhos ()

Worksheets("Desenhos Novos").Range("a1:c30000").Select

Selection.Copy

Sheets("Temporária").Select

Cells.Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Erro:

" O método Select da classe Range falhou."

Se alguém puder me ajudar ficarei muito grato..

desde já agradeço!

Atenciosamente

Adriano Rocha

[JoséA]

Não testei, mas tente assim:

Sub CopiaDesenhos ()

'reexibir a plan

Worksheets("Desenhos Novos").Visible = xlSheetVisible

'seu código

'ocultar plan

Worksheets("Desenhos Novos").Visible = xlHidden

End Sub

Editado Janeiro 16, 2009 por JoséA