Søg og erstat makro - kan ikke få den til at virke

Jeg har først prøvet at skrive en søg og erstat selv, men det kunne jeg ikke få til at virke...

så prøvede jeg at optage en macro hvor jeg laver søg og erstat, og den søger og erstatter, men når jeg køre makroen sker der ikke noget


Sub what()
'
' what Makro
'

'
    Columns("C:D").Select
    Selection.Replace what:="hej", Replacement:="HURA", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub


Den markere som den skal den erstatter bare ikke noget