Problem med variabel

Hej derude
jeg har lavet følgende makro, der skal erstatte værdien i det valgte område med værdien i variablen kt

Sub erstat
dim kt as variant
range("h17").select 'indeholder den værdi der skal indsættes
kt = activecell.value
activecell.offset(0,5).select
range(selection, selection.end(xltoright)).select
selection.replace what:="+'310000", replacement:="+ & kt", Lookat:=xlPart _
, searchorder:=xlbyrows, Matchcase:=false.

Ligemeget hvad jeg gør vil den ikke køre, så hvor pokker ligger fejlen ?
mvh
alj