Indputdata problemer

Hej

Hvordan får jeg følgende ind i i makroen
0901 skal hentes i C1
1001 har en variabel som er u

Selection.Replace What:="0901", Replacement:="1001", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False


Har prøvet med bla. den her men hjælper ikke
Selection.Replace What:="[A1]", Replacement:="(u)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False