Function VBA code doesn't work

[Limone]

Hi. I'm trying to use a code found on this site https://www.extendoffice.com/documents/excel/3269-excel-concatenate-cells-if-not-empty.html

Unfortunately, when I try to execute it gives me the "can't find project or library" error. What could be the problem? It also briefly highlights the first "n" in blue before pointing to the first line of the code. Thanks in advance for any help.

Function Concatenatecells(ConcatenateArea As Range) As String
'updateby Extendoffice 20151103
  For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "/"): Next
  Concatenatecells = Left(nn, Len(nn) - 1)
End Function

 

[Fluff]

Try

Function Concatenatecells(ConcatenateArea As Range) As String
   Dim n As Range, nn As String
  For Each n In ConcatenateArea: nn = IIf(n = "", nn & "", nn & n & "/"): Next
  Concatenatecells = Left(nn, Len(nn) - 1)
End Function

 

[Limone]

Same error, now "Left" gets highlighted in blue though.
Also, I'd previously changed the code so that it would read "ConcatenateArea" instead of "ConcatArea", thinking that could be the problem since I'm working on Excel 2010. I don't know if it makes a difference though, now I've changed it back.

 

[Norie]

Have a look under Tools>References...

If there's anything marked as MISSING note it's name, uncheck it, save and close the workbook, re-open and try the code again.

 

[Rick Rothstein]

Does this function work for you...

Function ConcatArea(Rng As Range) As String
  Dim Cell As Range
  For Each Cell In Rng
    If Len(Cell.Value) Then ConcatArea = ConcatArea & "/" & Cell.Value
  Next
  ConcatArea = Mid(ConcatArea, 2)
End Function

 

[Limone]

Have a look under Tools>References...

If there's anything marked as MISSING note it's name, uncheck it, save and close the workbook, re-open and try the code again.

Thank you, that worked. What should I do about the missing object? It was the Calendar Control 2007.

 

[Norie]

Do you use the Calendar Control in the workbook?

 

[Limone]

Not so far, what if I wanted to one day?