Thanks for the response. One more question. These are for the most part large multi font spreadsheets. I only want to replace the fonts for the 3 fonts "Tech Sans Book" "Tech Sans Black" and "Tech Sans Medium" How do I specify replacing only those three fonts in the macro?