Fehlende Zahlen mit Format "0000" finden

Sub FehlNum()
Dim intLast%, intMax%, intCount%, intCount2
Dim strRng$
Dim vorhanden
intLast = Range("A1").End(xlDown).Row
strRng = "A1:A" & LTrim(Str(intLast))
intCount2 = 5  '5 =  Zeile in der die fehlenden Zahlen geschrieben werden
Hallo Excel - Freunde
ich hab in der Recheche diese Makro gefunden um fehlende Zahlen zufinden - Was auch funktioniert.
Leider sind meine Zahlen mit folgenden Format versehen "OOOO" .
Weis jemand wie man das Makro umschreiben Kann?
Vielen DAnk für die Hilfe im voraus
Gruß Wolfgang
intMax = WorksheetFunction.Max(Range(strRng))
For intCount = 1 To intMax
On Error GoTo Errorhandler:
vorhanden = Range(strRng).Find(What:=intCount, LookAt:=xlWhole)
Next intCount
Exit Sub
Errorhandler:
Cells(intCount2, 4).Value = intCount  ' 4 = Spalte in der die fehlenden Zahlen geschrieben werden
intCount2 = intCount2 + 1
Resume Next
End Sub