Como eu faço para colocar [resolvido] no topico?

Dim a As String Dim continua As VbMsgBoxResult Dim p As Long On Error Resume Next p = 0 i = 1 While p < 10 Range("A1").Select...

Muito obrigado resolveu meu principal problema. oq ocorre agora é que se vc notar na minha função ele copia e cola determinado valor, agora onde daria...

não funcionou o erro q esta dando é q a variavel do objeto ou a variavel do bloco "with" não fou definida oq eu preciso na minha estrutura ...