Loop - For each sheet in worksheet

[leoamsousa]

Bom dia pessoal,

 

Estou precisando de um help. Quero fazer um loop para passar por todas as abas e realizar a substituição, porém ele só está realizando na aba selecionada e não em todas, poderiam me falar o que está incorreto no meu código por favor?

Sub Cabecalho()
Dim ws As Worksheet
For Each ws In Worksheets
    Rows("1:2").Select
    Selection.Replace What:="Budget_2021\Budget_2021\[Template BGT 2021.xlsx", _
        Replacement:="Budget_2022\Budget_2022\[Template BGT 2022.xlsx", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next
End Sub

[Alyson Ronnan Martins]

Bom dia @leoamsousa!

Tenta da seguinte maneira:

Sub Cabecalho()
Dim ws As Worksheet
For Each ws In Worksheets
	ws.select
    Rows("1:2").Select
    Selection.Replace What:="Budget_2021\Budget_2021\[Template BGT 2021.xlsx", _
        Replacement:="Budget_2022\Budget_2022\[Template BGT 2022.xlsx", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next
End Sub