Garry,

Finally got it working.

Sub Macro_Change_Function()
'
' Macro_Change_Function Macro
'

'

x = GetRefersTo("Fill_Formula")
a = Sheets("Settings").Range("Current_Function")
b = Sheets("Settings").Range("Selected_Function")
y = Application.Substitute(x, a, b)
ActiveWorkbook.Names("Fill_Formula").RefersTo = y
End Sub


Thanks for all the help.



- Ronald K.