Hi This routine finds all the fonts (.shx &.ttf etc) used in the all textstyles. 1) Is there a way to list only the fonts that are actually used in the drawing (& not just loaded)? 2) Is there a way to exclude the fonts that are used in linetype definitions? TIA Dave F. Private Sub ListLoadedFonts() Dim curStyle As AcadTextStyle For Each curStyle In ThisDrawing.TextStyles Debug.Print curStyle.Name Debug.Print curStyle.fontFile Next 'curStyle End Sub