Master

Option Explicit

Public Type MasterTags
    RcpID As Tag
    RcpGrade As Tag
    RcpRough As Tag
    RcpFinish As Tag
    RcpDsc As Tag
    RcpDate As Tag
End Type

Function AddMasterTag()
Dim strFolder As String
strFolder = "RCP\"

With ThisDisplay.MyTagGroup

    .Add ("{" & strFolder & "RcpID_SP}")
    .Add ("{" & strFolder & "RcpGrade_SP}")
    .Add ("{" & strFolder & "RcpRough_SP}")
    .Add ("{" & strFolder & "RcpFinish_SP}")
    .Add ("{" & strFolder & "RcpDsc_SP}")
    .Add ("{" & strFolder & "RcpDate_SP}")

End With

End Function