Thanks Don..........works good but seems to be "case sensitive".......can
anything be done to change that?

Vaya con Dios,
Chuck, CABGx3



"Don Guillett" wrote:

something like
mc=0
for each c in selection
if instr(c,"John")0 then mc=mc+1
next c
msgbox mc
--
Don Guillett
SalesAid Software

"CLR" wrote in message
...
Hi All.......
How might the code read to perform a check of all cells in the selected
column and count all the cells which contain a certain string at least
once,
and place the total in cell B1. That is, if the string exists by itself,
or
within a string of other characters in the same cell.....and if multiple
times in one cell, only count once.

If looking for JOHN,
Cell with JOHN ...would count 1
Cell with JOHN/BILL /TOM & OTHERS... would count 1
Cell with JOHN / BILL,JOHN ...would count 1
Cell with BILL, TOM ...would not count
(note the inconsistant punctuation)

TIA for any help
Vaya con Dios,
Chuck, CABGx3