VBA zoeken en vervangen door waarde uit cel

[Tweety1]

Hoe kan ik de macro aanpassen zodat het zoekende woord vervangen wordt door de waarde die in C2 staat.

Sub Macro2()
'
' Macro2 Macro
'

    Range("Excel2CI[[Course ID]:[Final Exam]]").Select
    Selection.Replace What:="'Jaar 1'", Replacement:="'Jaar 2'", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[VenA]

Even een voorbeeldje uploaden?

 

[Tweety1]

Hierbij een voorbeeld

Macro 1 is de macro die ik heb opgenomen.
Macro 2 is de macro die ik heb geprobeerd te maken alleen werkt deze niet

De bedoeling is dat Jaar 1 vervangen wordt door de inhoud van cel I1 (deze inhoud kan steeds veranderen)

Voorbeeld:
Bekijk bijlage Voorbeel vervangen.xlsm

 

[Warme bakkertje]

with ActiveSheet
    .ListObjects("Tabel1").DataBodyRange.Replace "Jaar 1", .Range("I1").Value, , xlWhole
End With

 

[Tweety1]

Thanks