Olha se é isso

Troque isso: ThisWorkbook.Application.Quit por isto: Thisworkbook.close

Ja pensou em usar Ctrl + U ?

Tente assim: Select case CBFiltro Case Is "Clientes" Call RelatorioClientes Case is "Produtos" Call Produtos End Select

Pq nao coloca a mensagem na abertura da planilha ao inves do botao?

Conhece rotinas de repetição? Para que funcione vc precisa de uma chave primaria, ou seja um valor que seja unico.

Pesquise por procv.

Faça o que eu disse acima. Deixe essa guia pronta com todas as formatações, inclusive o cabeçalho. Utilize o VBA apenas para preencher a planilha.

Acredito que esta imagem é um logotipo ou algo assim! Eu costumo deixar as formatações necessarias ja inseridas em uma guia pre configurada e preench...

Disponibilize o arquivo.

Nao tem nenhum codigo na planilha. Ja pensou em usar formulas ou tabela dinamica?

Qto a ultima linha para colar os dados troque: Linha = 4 por Linha = Sheets("Percas e Roubos").range("F" & Rows.Count).End...

Eu nem olhei o seu codigo, mas qdo vc passa por uma celula esta se torna a celula ativa, independente do tempo que isto dure. Entao se eu entendi sua...

Não conheço sua planilha mas o que eu faria é o seguinte a cada registro alterado no formulario faria a alteração dos dados direto na planilha para de...

Coloca o arquivo no forum ou em outro servidor nao foi possivel abrir.