[RESOLVED]excel vba question

i have an excelsheet with 1 column of data
column 1 holds numbers from 1 to 100

I have to check if all numbers from 1 to 100 are in the column

i.e.:
1
2
3
5
6
7

number 4 is missing. i have to add a row between 3 and 5 and fill in 4
it is also possible that more numbers are missing:
1
4
5
6

Yuo may try doing some thing similar to following but KIM it's only a quick sample:

VB Code:

Private Sub Worksheet_Activate()
Dim i%, sValue$, iNum%
 
    sValue = "-1000"
    iNum = -999
    
    Do While IsNumeric(Trim$(sValue)) = True
        i = i + 1
        iNum = CInt(Sheet1.Cells(i, "A"))
        sValue = Sheet1.Cells(i + 1, "A")
        If Trim$(sValue) = "" Then Exit Sub
        
        If Abs(CInt(sValue) - iNum) <> 1 Then
            Sheet1.Cells(i + 1, "A") = iNum + 1
        End If
    Loop
 
End Sub

ok, thx, this was almost everything i needed, great!