Function validate_data() as Boolean
    Dim newTable As Visio.Shape
    Set newTable = Module1.get_new_table
    Module1.setup_table tableName.Text, boxName.Text, Hld.Text, Owner.Text, active.Text
    If ThisDocument.tableUnique(newTable) Then
        validate_data = True
    Else
        MsgBox "Table data is not unique!"
        validate_data = False
    End If
        
End Function

Public Function tableUnique(ByVal shpTable As Visio.Shape) As Boolean
    If InStr(shpTable.Name, "Table") Then
        counter = 0
        For Each shp In ActivePage.Shapes
            If InStr(Shape.Name, "Table") Then
                If shpTable.Cells("Prop.Table_name").Formula = shp.Cells("Prop.Table_name").Formula And _
                        shpTable.Cells("Prop.Box_name").Formula = shp.Cells("Prop.Box_name").Formula And _
                        shpTable.Cells("Prop.Hld").Formula = shp.Cells("Prop.Hld").Formula Then
                    counter = counter + 1
                End If
            End If
        Next
        If counter = 1 Then
            tableUnique = True
            Exit Function
        End If
    End If
    tableUnique = False
End Function