Error '1004'

  • Thread starter Thread starter kittronald
  • Start date Start date
K

kittronald

Why does setting the RefersTo value cause a run-time error 1004 ?

Sub Macro_Change_Function()
'
' Macro_Change_Function Macro
'

'
If Sheet2.CheckBoxes("Check Box 23").Value = False Then
Sheet2.CheckBoxes("Check Box 23").Value = True
Else
Sheet2.CheckBoxes("Check Box 23").Value = True
End If

z = Sheets("Settings").Range("XLQ_Functions")
x = GetRefersTo("Fill_Formula")
a = SEARCHFORMULA(z, x)
b = ("xlqh") & Sheets("Settings").Range("Data_Type")
y = Application.Substitute(x, a, b)

ActiveWorkbook.Names("Fill_Formula").RefersTo = y


End Sub



- Ronald K.
 
kittronald explained :
Why does setting the RefersTo value cause a run-time error 1004 ?

Sub Macro_Change_Function()
'
' Macro_Change_Function Macro
'

'
If Sheet2.CheckBoxes("Check Box 23").Value = False Then
Sheet2.CheckBoxes("Check Box 23").Value = True
Else
Sheet2.CheckBoxes("Check Box 23").Value = True
End If

z = Sheets("Settings").Range("XLQ_Functions")
x = GetRefersTo("Fill_Formula")
a = SEARCHFORMULA(z, x)
b = ("xlqh") & Sheets("Settings").Range("Data_Type")
y = Application.Substitute(x, a, b)

ActiveWorkbook.Names("Fill_Formula").RefersTo = y


End Sub



- Ronald K.
Click to expand...

Debug.Print y to see what it is.
 
Garry,

Just so everyone knows ... there's a 255 character limit for a name's
Refers to: value.

Of course, ... I already knew that. 8o


- Ronald K.
 
Garry,

Just so everyone knows ... there's a 255 character limit for a name's
Refers to: value.

Of course, ... I already knew that. 8o


- Ronald K.
Click to expand...

Yes, I know that! I've never tried (via code) to enter anything longer
so are you saying the length exceeded the limit and so the error?
 
Back
Top