Coloar em Planilha Oculta

[Herbrom]

Boa tarde,
Sou novato no VBA e preciso de um socorro!
Tenho uma planilha "CAIXA" onde lanço diversos valores como num. pedido, vlr. pago em cartão1, cartão2, dinheiro, etc.,.
Com uma macro copio e colo cada valor do caixa para uma planilha "REGISTROS". Acontece que quero fazer o mesmo com outra planilha "REGOCU", oculta, que servirá para auditoria posterior. Fiz uma tentativa mas as planilhas ficam "piscando", ou seja, entrando e saindo e aí perde o sentido. Como resolvo? Abaixo trecho do que estou fazendo:

Sub Caixa()
'
' Caixa Macro
' Macro gravada em 19/2/2012 por Heron
'
'
Range("F7").Select
'DATA
Application.CutCopyMode = False
Selection.Copy
Sheets("Registros").Select
ActiveCell.Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
' =0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=
ActiveWorkbook.Sheets("RegOcu").Visible = True
'Sheets("RegOcu").Visible = xlSheetHidden
Sheets("RegOcu").Select
'ActiveSheet.Visible = xlSheetVeryHidden
ActiveCell.Select
' ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
'ActiveWorkbook.Sheets("RegOcu").Visible = False
'=============================================================0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0==0=0=

Sheets("Caixa").Select
Range("F9").Select
'PEDIDO
Application.CutCopyMode = False
Selection.Copy
Sheets("Registros").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
' =0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=
'ActiveWorkbook.Sheets("RegOcu").Visible = True
Sheets("RegOcu").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
'ActiveWorkbook.Sheets("RegOcu").Visible = False

[Mikel Silveira Fraga]

Herbrom, boa noite e seja muito bem vindo ao fórum.

Então, se eu entendi direito, o que acontece é toda a movimentação das planilhas em segundo plano, quando a macro executa as operações definidas.

Se for isso mesmo, você pode resolver esse problema com o comando abaixo:

Código: Selecionar todos

Sub Macro()

    Application.ScreenUpdating = False
    
    'Executa todo o seu código.
    
    Application.ScreenUpdating = True
    
End Sub

A função ScreenUpdating refere-se exatamente a essa movimentação em segundo plano. Então, usando o código acima, você irá desabilitá-la, o código será executado limpo e, antes do termino da operação, reabilita a função.

Teste e nos dê um retorno.

Abraços e excelente final de semana.

[Herbrom]

Mikel,
Valeu! Perfeito! Muito obrigado.