Ajuda com Macro

Question

Pessoal poderiam me ajudar com essa macro simples, estou estudando, e ao criar essa macro, a editei, só que sua execução está lenta. Ela é simples, só quero apagar campos determinados em várias abas de uma planilha.

Segue a macro. Desde já obrigado.

Sub Limpar()
'
' Limpar Macro
' Macro gravada em 12/11/2009 por CPU112
'
' Atalho do teclado: Ctrl+l
'
    Range("A3,A3:B49,E3:F49,L15,M18,K8").Select
    Selection.ClearContents
    Sheets("MVA  2").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("MVA  3").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("MVA  4").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("MVA  5").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("MVA  6").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("MVA  7").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("MVA  8").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("MVA  9").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("MVA  10").Select
    Range("A3,A3:B49,E3:F49,K8").Select
    Selection.ClearContents
    Sheets("ICMS ST Total").Select
    Range("C2").Select
    Selection.ClearContents
    Sheets("MVA  1").Select
    Range("A3").Select
End Sub

Answer 1

Tente fazer assim

    Sheets("MVA  2").Range("A3,A3:B49,E3:F49,L15,M18,K8").ClearContents
    Sheets("MVA  2").Range("A3,A3:B49,E3:F49,K8").ClearContents
    Sheets("MVA  3")....
Assim por diante
Talvez fique mais rapido

---

Wesley

Answer 2

Obrigado amigo, ficou realmente mais rapido e eu entendi bem a lógico pra programá-las, já arrumei outras que tenho aqui simplificando-as.


Abraços