请教， 运行后显示属性错误

统计指定性别人数
sub peoplecount()
dim able as string,cous as integer,rencou as integer
xbie =worksheets("sheet1").range("j2")
for cous=1 to 18
ifrange("c"&1+cous)=xbie then rencou=rencou+1
next cous
range("j3")=rencou
end sub