Change specific header

[Ananthak275]

I have my vba stored in another file, so when i open wb, im attaching it to a variable

Destination_file as wb

I want to go into Destination_file and look for a specific header (row 1) that has a specific string (eg "Date Address") and change it (eg "Date and Address). It has to be specific string because the column next to it is called ("Date Address ID"). How do i make sure it only changes the column with the extract string?

 

[mrshl9898]

Sub FindAndReplace()

    Destination_file.Sheets("Sheet Name").Rows("1:1").Replace What:="Date Address", Replacement:="Date and Address", LookAt:=xlWhole

End Sub