SORRY FORGOT SOMETHING
CORRECTED TEXT :


Sub Search(reportnr as integer)

counter =0

With Sheets("Reportnumbers")
List = .Range(.Cells(1, 1), .Cells(50000,1))
End With


i=1
for i=1 to UBound(List)


if List(i,1) = reportnr then
counter = counter + 1
endif

next

Msgbox("Reportnr. appears : " & counter)

End Sub