need help with shape calling a macro

[jwspiegel]

I am using a "CustomTag" to store information about the part being dropped on the page. The tag is part of the larger stencil and i am needing to fill in two property fields when the part is first dropped on the page. My issue i'm having is my current code will change a single instance of Custom Tag if multiple are on the page but not the one that is newly dropped.I am needing only the tag that was dropped to be changed.  I am calling the macro from the events shape sheet. My test code is below. Any Help would be appreciated.

Public Sub Set_Tag()

Dim shpObj As Visio.Shape
Dim cellobj As Visio.Cell
Dim Rev_Number As Integer
Dim Proj_Number As Double
Dim TheShapes As Shapes

Rev_Number = 1
Proj_Number = 16212.01
' Obtain the list of shapes
   Set TheShapes = ActivePage.Shapes
   
   ' Holds individual shape data.
   Dim ThisShape As Shape
   Dim ShapeNames As String
   Dim showForm As String
   
   ' Obtain each shape and add it to the list.
   For Each ThisShape In TheShapes
     
       ShapeNames = ShapeNames + ThisShape.Name + vbCrLf
       If ThisShape.Name = "CustomTag" Then
         MsgBox "here"
         
          ThisShape.CellsU("Prop.Revision") = Rev_Number
          ThisShape.CellsU("Prop.Project") = Proj_Number
       
           
       End If
   
   Next
End Sub

[wapperdude]

The newly dropped shape ought to be selected, so  just use the selected shape rather than looping thru the shapes collection.

Wapperdude

[jwspiegel]

The issue is the tags are shapes grouped within the larger stencil... so when the stencil is dropped there are a number of shapes selected.