VBA excel: zoeken en vervangen in meerdere (maar niet alle) tabbladen

[jajajajanneke]

Hoi,

Ik wil graag in meerdere (maar niet alle) tabbladen de waarde "(leeg)" vervangen door "".
Tijdens het opnemen van de macro gaat het goed maar bij het uitvoeren vervangt ie alleen de waarden in het eerste (geactiveerde) tabblad.
Hoe kan ik er voor zorgen dat ie dat in alle geselecteerde tabbladen doet?
(Mijn laatste redmiddel is om ze in de code één voor één te activeren... maarja, dat is verre van ideaal)

Alvast bedankt.

Groetjes,
Janneke

 

[jajajajanneke]

Trouwens,

In het verlengde van bovenstaand verhaal ben ik ook op zoek naar een manier om in de geselecteerde tabbladen de titelblokkering aan te zetten onder de 1e rij... dat doet een opgenomen macro namelijk ook niet.

Groetjes,
Janneke

 

[HSV]

Sub Janneke()
 Dim sh As Object
  For Each sh In ActiveWorkbook.Windows(1).SelectedSheets
   With sh
   .Activate
    .Range("A2").Select
      ActiveWindow.FreezePanes = True
       .UsedRange.Replace What:="leeg", Replacement:="", LookAt:=xlWhole, _
        MatchCase:=False, SearchFormat:=False, _
         ReplaceFormat:=False
    End With
  Next sh
End Sub

 

[jajajajanneke]

Volgens mij werkt ie!
Bedankt!