Hi, Have no idea for changing the color but here is the code for changing the font size. sub changeFont set sheet = ActiveDocument.ActiveSheet for i=0 to sheet.NoOfSheetObjects-1 set sheetObject = sheet.SheetObjects(i) font = sheetObject.GetFrameDef.Font font.PointSize1000 = font.PointSize1000 + 1000 sheetObject.setFont font next end sub Regards. Siva Sankar