Pessoal, boa tarde!

Tenho essa macro que apagar todas as células onde de acordo com o conteúdo que digitei em uma InputBox.

Ou seja...devo selecionar uma região, colocar na InputBox o texto, e a macro deleta o conteúdo e deixa o fundo como "sem preenchimento"...

Porém, quando a seleção é grande, a macro demora MUITO!
Há algum modo de fazer a mesma coisa, mas de forma mais rápida?

Desde já, OBRIGADO!!!

o código que uso:

Sub ApagarSigla()

Dim svar As String
Dim rngSelected As Range
Dim rngFormat As Range

svar = UCase(InputBox("DIGITE A SIGLA", "", ""))

Set rngSelected = Selection

For Each rngFormat In rngSelected
    If UCase(rngFormat.Text) = UCase(svar) Then
        rngFormat = ""
        rngFormat.ClearContents
        rngFormat.Interior.Pattern = xlNone
        rngFormat.Interior.TintAndShade = 0
        rngFormat.Interior.PatternTintAndShade = 0
    End If
Next
End Sub