Hello all,

I am kind of stumped. I have started to make a macro that will number our op sheets based on operation number. I can currently count each op sheet which and the macro will start back at one when the operation number changes, but I cant seem to figure out how to get it to count the total number of sheets per operation then do the individual number.

<p><span style="font-family: Consolas;">Sub main()<br>    Dim swApp           As SldWorks.SldWorks<br>    Dim swModel         As SldWorks.ModelDoc2<br>    Dim swDrawing       As SldWorks.DrawingDoc<br>    Dim swSelMgr        As SldWorks.SelectionMgr<br>    Dim swNote          As SldWorks.Note<br>    Dim swView          As SldWorks.View<br>    Dim swSheet         As SldWorks.Sheet<br>    Dim swAnno          As SldWorks.Annotation<br>    <br>    <br>    <br>    Dim swSelObj            As Object<br>    <br>    <br>    Dim SheetCount, e, k, t As Integer<br>    Dim i, j, x, y          As Integer</span></p><p><span style="font-family: Consolas;">    <br>    Dim strop               As String<br>    Dim strop2              As String<br>    Dim descriptionText     As String<br>    Dim SheetNames()        As String<br>    <br>    <br>    Dim sheets(0)           As Long<br>        <br>    <br>    Dim foundNote           As Boolean<br>    Dim ret                 As Boolean</span></p><p><span style="font-family: Consolas;"><br>    Set swApp = Application.SldWorks<br>    Set swModel = swApp.ActiveDoc<br>    Set swDrawing = swModel<br>    SheetNames = swDrawing.GetSheetNames<br>    swDrawing.ActivateSheet SheetNames(0)<br>    SheetCount = swDrawing.GetSheetCount<br>    <br>    If swApp.ActiveDoc.GetType <> swDocDRAWING Then<br>        swApp.SendMsgToUser2 "This Macro Is Only For Use On Drawing Documents!", swMbWarning, swMbOk<br>        End<br>    End If</span></p><p></p><p>t = 1<br>For e = 1 To SheetCount<br>strop2 = strop<br>    If e > 1 Then swDrawing.SheetNext<br>        swDrawing.EditTemplate<br>        Set swView = swDrawing.GetFirstView<br>        Set swNote = swView.GetFirstNote<br>        Do While Not swNote Is Nothing<br>            If (swNote.GetName = "DetailItem32") Then<br>                foundNote = True<br>                strop = swNote.GetText<br>            End If<br>            Set swNote = swNote.GetNext<br>        Loop<br>        <br>        t = t + 1<br>    <br>    If strop2 <> strop Then t = 1<br>    <br>    swApp.SendMsgToUser ("OP #" & strop & " : " & t)<br>    Next i<br>    <br>   <br>    <br>    swDrawing.EditSheet</p><p>Next e</p><p></p><p>swDrawing.ForceRebuild3 True</p><p>End Sub</p>