find and replace in vba

[lasca]

I need vba to look at ie A1 and look if there is a "/" and replace it with
"-", but it must not return that value in the cell. I want to use the value
and a named range This what i have done so far.

Sub ParentNamedRange()

Dim ParentNamedRange
' set Parent Named range


ParentStockcCode = ???????????

Range("M6:M10").Select
ActiveWorkbook.Names.Add Name:=ParentNamedRange,
RefersToR1C1:="=R6C13:R10C13"
End Sub

Thanks