title = getTitle();
run("Split Channels");

selectWindow(title+" (green)");
// process the green channel;
setAutoThreshold("Moments dark");
//run("Threshold...");
//setThreshold(69, 255);
setOption("BlackBackground", false);
run("Convert to Mask");
run("Close-");
run("Fill Holes");
run("Dilate");
run("Remove Outliers...", "radius=50 threshold=50 which=Bright");
run("Create Selection");

selectWindow(title+" (blue)");
// process the blue channel;
run("Restore Selection");
run("Find Maxima...", "noise=13 output=Count");

--
ImageJ mailing list: http://imagej.nih.gov/ij/list.html