If they are the same I think an ilogic code can count them not sure but just for me why would someone need this.
Never know may learn something new.
You may try some iLogic code like the following. This code prints out the name of the Title Block used on each sheet.
Dim oDoc As Document = ThisApplication.ActiveDocument Dim oDrgDoc As DrawingDocument = oDoc Dim oSheetCount As Integer = oDrgDoc.Sheets.Count Dim msg As String() ReDim msg(oSheetCount) Dim i As Integer For i = 1 To oSheetCount msg(i)= oDrgDoc.Sheets(i).TitleBlock.Name msgString = msgString & Chr(13) & "Sheet " & i & "" & msg(i) Next MsgBox (msgString, ,"TitleBlocks Used")