Люди, помогите с прогресс баром для простейшего макроса, пожалуйста! Как внедрить прогресс бар в данный макрос?

sub progress ()
for i=1 to 850000
if instr(1,cells(i,1), "телеком")>0 then
cells(i,2)=1
end if
next i
end sub