Series en Excel

Hola, yo estoy muy agradecido con ustedes, pero tengo un millón de preguntas.
Como puedo hacer en excel para verificar si en una serie no me falta ningún numero, anteriormente visitando este FORO encontré la siguiente rutina que sirve para esto, pero la maquina se pega excel no responde. La rutina es la siguiente:
Public Function CompletaSerie(r As Range) As String
Dim c As Range
Dim cs, rs As Integer
Dim s As String
For Each c In r
If c.Value = "" Then
s = "La serie no debe tener celdas en blanco"
GoTo fin
End If
Next c
rs = r.Rows.Count
cs = r.Columns.Count
For i = 1 To rs
For j = 1 To cs
a = r.Item(i, j)
If i + 1 <= rs Then
b = r.Item(i + 1, j)
While b <> a + 1 And a + 1 <> ""
s = s & Str(a + 1) & ";"
a = a + 1
Wend
End If
Next j
Next i
fin:
CompletaSerie = s
End Function
Si hay otra forma se lo agradezco
Jose peña Ortiz
Pantasma