The visual basic code is:

Selection.Replace What:="-", Replacement:="-0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
_
ReplaceFormat:=False

I can see what's going wrong, but I have no idea how I can correct
this...
Any help is welcome

Thnx,
Leon