Custom Function Returning #VALUE!

[ExperTeece]

I have created a custom function do perform concatenation of 16 cells that may not all have values in them. The first cell is required so I pass its value seperately. The remainder I pass as a range. The function works fine during testing but then once I save the file and reopen it the function ends up with the #VALUE! error. I have somewhat resolved the issue by putting a default value in the first cell rather than leaving it blank but would really like to figure out why the function is not working. Thanks in advance for any answers you may have. Below is the code:

Function DescBuild(Optional Class As String, Optional AttRng As Range) As String
Dim FinalString As String
Dim attCnt As Integer
 
DescBuild = ""
FinalString = ""
'If Class = "" Then
 '   GoTo MyExit
'End If
FinalString = Class
For attCnt = 1 To 15
    If Not AttRng(attCnt).Value = "" Then
        FinalString = FinalString & ", " & AttRng(attCnt).Value
    End If
Next
MyExit:
DescBuild = FinalString
End Function

 

[mikerickson]

That is odd....Using the version in the OP, try the formula =DescBuild(B6&"", B7:B21). That will at least coerce the first argument into being a string.

 

[ExperTeece]

While this does not answer the question you asked, you may find the UDF that I posted here of some interest (it is a concatenation program with additional functionality)...

Flexible Concatenation Function

Rick,
Thanks for the function. Using it instead of mine has solved my issue for now. I still want to figure out why my function did not work as expected, but at least I can get my tool out to my end user group.

Dave