VBA to select & replace contents of cells

Hi,

I need to replace some data in certain cells but my current code won't work;

With Sheets("Reconciliation")
    .Cells("H12:K23").Replace What:="$G", replacement:="$J", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With

I'm trying to replace $G with $J just in cells H12 to K23??

Any ideas?