Tente assim dt = Cdate("11/03/2018")

Tenta no lugar de ""Unload TELA_INICIAL"" Unload me E para imprimir Sheets("Nome da Planilha").printout

Disponibilize a planiha com alguns dados.

Tentou usar o gravador de macros?

Penso que a planilha de destino ja deveria estar formatada como desejado.

Mesmo assim 300 guias é muita coisa, provavelmente estao ignorando boa parte dos recursos do excel. Partindo do principio que seja muito provavel que...

Tente este codigo Sub GerarFichas() Dim W As Worksheet Dim L As Long Dim WF As Worksheet Set W = Sheets("BANCO DE DADOS") Set WF = She...

Tente este! Sub LimparImpressão() Dim WS As Worksheet For Each WS In Worksheets If WS.Name <> "Plan1" Then WS.Select WS...

Veja se atende! Sub LimparImpressão() Dim WS As Worksheet For Each WS In Worksheets If WS.Name <> "Plan1" Then With WS ....

Tente adaptar esse exemplo

1000 worksheets!!! Pq tantas guias? Uma das coisas que se pode fazer é centralizar ao maximo os dados. (Separar é mais facil que juntar). Talve...

Cara olhei a planilha mas nao entendi onde esta o problema! Onde esta o problema?

Pode-se dificultar! Impedir quase impossivel.

Selecione as colunas ABC Formatar Celulas > Proteção > Desmarque Bloqueadas Salve o arquivo Use a dica do yatagan.

Sem a planilha e o codigo não da pra ajudar.