Excel VBA 1004 Error with named range formula - vba

Question

I am tinkering with a program but I get an error that I cant place.
Error is 1004
Code:
Source_1_Criteria = "Factuur"
Source_1_Name = Range("MDM_MDM_Tool_List").Find(what:=Source_1_Criteria).Offset(0, 2).Value
Source_1_Area = Range("MDM_MDM_Tool_List").Find(what:=Source_1_Criteria).Offset(0, 4).Value
ActiveWorkbook.Names.Add Name:=Source_1_Name, RefersTo:=Source_1_Area
The last line gives me the error.
I know its something in the 3 line.
The result in the 3 line results in error with current contents in the cell
=VERSCHUIVING(archief!$A$2;0;0;1;AANTALARG(archief!$A$2:archief!$Y$2))
When I change the contents to =archief!$A$2 the code works.
But when I manually copy/paste the formula in a named range it works....
So to my calculation:
Formula = Works
Code = Works
those 2 together gives
error 1004

Answer 1

The formula you should have in place of =VERSCHUIVING(archief!$A$2;0;0;1;AANTALARG(archief!$A$2:archief!$Y$2)) should be this one:-
=ADRES(2;1;;;"Archief") & ":" & ADRES(2;AANTALARG(Archief!$A$2:$Y$2))
Below is code which I tested thoroughly. It works with the formula I supplied yesterday (above). You can use Edit/Replace to restore your original variable names in the code below.
Option Explicit
Private Sub Dutch()
' 05 Jan 2018
Dim Wb As Workbook
Dim Ws As Worksheet
Dim SrcCrit As String
Dim SrcName As Variant
Dim SrcArea As String
Dim Sp() As String
Dim Rng As Range
Set Wb = ActiveWorkbook ' could be ThisWorkbook
Set Ws = ActiveSheet ' could be another sheet
SrcCrit = "Factuur"
Set Rng = Ws.Range("ToolList").Find(What:=SrcCrit)
If Not Rng Is Nothing Then
SrcName = Rng.Offset(0, 2).Value
' Debug.Print SrcName
SrcArea = Rng.Offset(0, 4).Value
' Debug.Print SrcArea
Sp = Split(SrcArea, "!")
If UBound(Sp) Then
If Left(Sp(0), 1) = "'" Then Sp(0) = Mid(Sp(0), 2)
If Right(Sp(0), 1) = "'" Then Sp(0) = Left(Sp(0), Len(Sp(0)) - 1)
Else
Sp = Split(Ws.Name & "|" & Sp(0), "|")
End If
Set Rng = Wb.Worksheets(Sp(0)).Range(Sp(1))
' Debug.Print Rng.Worksheet.Name, Rng.Address
On Error Resume Next
Wb.Names(SrcName).Delete
On Error GoTo 0
Wb.Names.Add Name:=SrcName, RefersTo:=Rng
' With Wb.Names(SrcName)
' Debug.Print .Name, .RefersTo
' End With
End If
End Sub
I found that error 1004 is a little complicated in the above context because such an error will occur when a faulty Name exists in the workbook, such as may have been created by your original code. In that case the error indicates the existence of an unrecognised element in the workbook which may be totally unrelated to the code you are intending to test run. 1004 errors of this nature are commonly caused by compatibility issues, not even related to names. Google for _xlfn IERROR
I got a persistent 1004 error while developing the above code because I had named the offsets from the found range as "first" to "fourth" which allocated "second" to the new named range. Wb.Names("Second").Name correctly returned "second" but Wb.Names(ScrName).Name trigered error 1004 - just your complaint. The error went away when I found out that SECOND() is a worksheet function and changed the name in the offset cell.