Har et regneark med 1000 rækker og skal erstatte noget i kolonnerne S:W med hvad der måtte stå i tilsvarende række AA og AD.

Nedenstående virker, men er noget af et arbejde til 1000 rækker, så jeg tænkte at det må kunne forenkles?

Sub Soeg_Erstat()

Fra = Range("AA2").Text

Til = Range("AD2").Text

    Range("S2:W2").Replace What:=Fra, Replacement:=Til, LookAt:=xlPart _

        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Fra = Range("AA3").Text

Til = Range("AD3").Text

    Range("S3:W3").Replace What:=Fra, Replacement:=Til, LookAt:=xlPart _

        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Fra = Range("AA4").Text

Til = Range("AD4").Text

    Range("S4:W4").Replace What:=Fra, Replacement:=Til, LookAt:=xlPart _

        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Fra = Range("AA5").Text

Til = Range("AD5").Text

    Range("S5:W5").Replace What:=Fra, Replacement:=Til, LookAt:=xlPart _

        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Fra = Range("AA6").Text

Til = Range("AD6").Text

    Range("S6:W6").Replace What:=Fra, Replacement:=Til, LookAt:=xlPart _

        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Fra = Range("AA7").Text

Til = Range("AD7").Text

    Range("S7:W7").Replace What:=Fra, Replacement:=Til, LookAt:=xlPart _

        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

End Sub

På forhånd tak.

VH Henrik