Missing Numbers Range VBA

[Rhett]

Rick you also posted the following code on msdn:

Function MissingNumbers(Rng As Range) As String
   Dim X As Long, MaxNum As Long
   MaxNum = WorksheetFunction.Max(Rng)
   ReDim Nums(1 To MaxNum)
   For X = 1 To MaxNum
     If Rng.Find(X, LookAt:=xlWhole) Is Nothing Then
       MissingNumbers = MissingNumbers & ", " & X
     End If
   Next
   MissingNumbers = Mid(MissingNumbers, 3)
 End Function

-----

This function was very helpful. Can you add a couple of lines that builds a string that contains the addresses of the cells within the range, or is it not possible for a UFD?
Please advise.

Thanks

Rhett