Dle mych zkusenosti to takhle nejde i kdyz pripoustim, ze se muzu mylit.
Ale urcite by to slo takhle:
If Application.WorksheetFunction.CountIf(Range("A1:A?"),"pes")>0 then
citovat
Ale urcite by to slo takhle:
If Application.WorksheetFunction.CountIf(Range("A1:A?"),"pes")>0 then
citovat