Se você quiser estudar a respeito, assista aos vídeos deste link: https://www.youtube.com/results?search_query=vba+target

Cbo_Classificacao.AddItem Sheets("Centro_Custo").Range("A" & i).Value

ANEXO

Creio que o erro não está nessa parte do código. Provavelmente está desabilitando aí e logo em seguida outra parte do código já habilita novamente.

Anexo

Option Explicit Sub recortarcolar() Dim DLin As Long Dim linha As Long DLin = Planilha1.UsedRange.Rows�...

Caso deseje aprender a fazer: https://www.youtube.com/results?search_query=vba+unificar+planilhas

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=28247&p=140963&hilit=remover#p140963

Quanto ao erro citado, não vi erro no código. Apenas troquei a ordem de algumas linhas, por algo mais lógico: Private Sub cmdpesquisar_Click() With ...

Cinco dicas que foram muito úteis para mim: 1) Quando não sei fazer algo no VBA, vou ao menu EXIBIÇÃO >> MACROS >> GRAVAR MACRO Faço o qu...

Sub Contarregistros() Dim contador_reg As Integer Dim CONT As Integer CONT = 0 For contador_reg = 0 To Me.ListBox1.ListCount - 1 If Me....

Sub PrParidades() J = Range("A65536").End(xlUp).Row For i = 2 To J Range("C" & i).Formulalocal = ...

dim var(1 to 10) as variant Var2 = FunçãoQualquer(var(10))

Option Explicit Sub teclas() Dim ciclos, n As Integer n = 0 ciclos = InputBox("Quantas vezes deseja correr o ciclo do Script?", "STO...

Pesquise no Google por: VBA retirar parte string