A slightly shorter alternative :-) put the short name of the topstack into tStackList put the substacks of the topstack into line 2 of tStackList repeat for each line tStack in tStackList repeat with n = 1 to the number of controls in stack tStack set the textfont of control n of stack tStack to new_font end repeat end repeat