udf to convert <any text> to range name

Greetings,
Has anyone got a ready made UDF to convert say "2goa(T)" to "_goa_T_"
TIA
--
David

Hi David

Not a UDF but a formula
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"2","_"),")","_"),"(","_")
--
Regards

Roger Govier


"David" <[email protected]> wrote in message
news:[email protected]...
> Greetings,
> Has anyone got a ready made UDF to convert say "2goa(T)" to "_goa_T_"
> TIA
> --
> David

'---------------------------------------------------------------------
Function ReFormat(Inp As String) As String
'---------------------------------------------------------------------
Dim oRegExp As Object

Set oRegExp = CreateObject("VBScript.RegExp")
With oRegExp
.Global = True
.Pattern = "[\\0-9(){}\[\]\ £\$%^&*]"
ReFormat = .Replace(Inp, "_")
End With
End Function



--

HTH

RP
(remove nothere from the email address if mailing direct)


"David" <[email protected]> wrote in message
news:[email protected]...
> Greetings,
> Has anyone got a ready made UDF to convert say "2goa(T)" to "_goa_T_"
> TIA
> --
> David