Cancellare testo su vari fogli di lavoro

[BG66]

Buongiorno,
vorrei "semplicemente"

In tutti i fogli di lavoro del file:
cancellare le celle di un un range definito (B5:D5) che contengono un testo specifico (Tr).

Ho provato con:

Codice: Seleziona tutto

Option Explicit

Sub cancellaTarget()
Dim i As Integer
Dim cella As Range
   For i = 1 To 3 'Worksheets.Count
        For Each cella In [B5:D5]
        If cella.Value = "Tr" Then cella.ClearContents

        Next cella
     Next i
End Sub


Ma cancella solamente nel foglio attivo.
Errore che commetto?

Grazie in anticipo.

https://www.dropbox.com/s/in6eoum5gwvob7n/CancellaTarget.xlsm?dl=0

[Marius44]

Ciao Gene
il tuo file non lo scarico nemmeno. Dopo tante tribolazioni mi commetti ancora di questi errori?
Ragiona un attimo sul codice.
In quale punto stai dicendo ad Excel di "spazzolare" tutti i Fogli?
In nessun punto.

Non ti dico la soluzione. Devi arrivarci da solo (e nei sei più che capace) e non chiedere la pappa pronta.
Ciao,
Mario

[Marius44]

Ciao Gene
solo perchè so che sei molto impegnato faccio la parte del "buono"
Prova a cambiare la tua macro con questa

Codice: Seleziona tutto

Option Explicit

Sub cancellaTarget()
Dim i As Integer, c As Range
For i = 1 To Sheets.Count
    For Each c In Sheets(i).[B5:D5]
        If c.Value = "Tr" Then c.ClearContents
    Next
Next i
End Sub


Fai sapere. Ciao,
Mario

PS. Attento che ti cancella solo Tr non anche TR ovvero tr

[BG66]

Ciao Mario,
grazie.
Come vedi latito da qualche tempo per mille e uno motivi.

Gene