Added missing "End Function"

microsoft/excel/functions/ConcatenateRange.vba

@@ -20,4 +20,6 @@ If Len(newString) <> 0 Then
     newString = Right$(newString, (Len(newString) - Len(seperator)))
 End If
 
-ConcatenateRange = newString
+ConcatenateRange = newString
+
+End Function