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