ImageJ macro to perform a batch cell count

BatchCellCount

// ImageJ macro to perform a batch cell count for a given directory (with images)
// ImageJ can be downloaded from http://rsb.info.nih.gov/ij/

requires("1.48g");

dir = getDirectory("Choose a Directory");

list = getFileList(dir);

Dialog.create("User selection");
Dialog.addNumber("Select size:", 250);
Dialog.show();
selSize = Dialog.getNumber();
sizeFullSetting = "size="+selSize+"-Infinity display";

count = 1;
for (i=0; i<list.length; i++) 
{
	if(endsWith(list[i], ".tif")) 
	{
		open(list[i]);
		CellCounter();
		close();
	}
}

function CellCounter() {
	xlsFileName = replace(getInfo("image.filename"),".tif",".xls");
	fullFilePath = getDirectory("image") + xlsFileName;
	run("32-bit");
	run("Find Edges");
	setOption("BlackBackground", false);
	run("Convert to Mask");
	run("Fill Holes");
	run("Analyze Particles...", sizeFullSetting);
	currDialog = getInfo("window.type");
	if(currDialog != "ResultsTable") {
		close("Particle*");
	} else {
		saveAs("Results", fullFilePath);
		run("Close");
	}
}

Dialog.create("Status");
Dialog.addMessage("Operation complete!");
Dialog.show();