We have 4 different tolerances we've written in a macro. We're using these 4 options in the Property tab builder. Thank everyone for their help.

The only way we can get each to populate to the drawing is chose a given tolerance. Re-run the macro and then rebuild. We'd like to choose any given tolerance in the drop-down menu and have that auto-update on the drawing without re-running the macro for each tolerance change.

These are the properties on the drawing

\\\$PRP:"TOLERANCE 0 PLACE"
\\\$PRP:"TOLERANCE 1 PLACE"
\\\$PRP:"TOLERANCE 2 PLACE"
\\\$PRP:"TOLERANCE 3 PLACE"
\\\$PRP:"TOLERANCE ANGLE"

VBA Macro 

Sub main()
'Set swApp = Application.SldWorks
Dim swApp As Object: Set swApp = Application.SldWorks
Dim swDoc As ModelDoc2: Set swDoc = swApp.ActiveDoc
Dim cpm As CustomPropertyManager
Set cpm = swDoc.Extension.CustomPropertyManager("")
Dim grp As String
cpm.Get4 "Tolerance", False, grp, grp
Select Case grp
'INCH PART TOLERANCE
Case "IN_PART"
cpm.Set2 "Tolerance 0 place", ""
cpm.Set2 "Tolerance 1 place", ""
cpm.Set2 "Tolerance 2 place", "2 Place: ±0.03(1/32" & Chr(34) & ")"
cpm.Set2 "Tolerance 3 place", "3 Place: ±0.005"
cpm.Set2 "Tolerance Angle", "Angle: ±1°"
'SI PART TOLERANCE
Case "SI_PART"
cpm.Set2 "Tolerance 0 place", "0 Place: ±0.8mm"
cpm.Set2 "Tolerance 1 place", "1 Place: ±0.8mm"
cpm.Set2 "Tolerance 2 place", "2 Place: ±0.13mm"
cpm.Set2 "Tolerance 3 place", "3 Place: ±0.05mm"
cpm.Set2 "Tolerance Angle", "Angle: ±1°"
'INCH ASSEMBLY TOLERANCE
Case "IN_ASSEMBLY"
cpm.Set2 "Tolerance 0 place", ""
cpm.Set2 "Tolerance 1 place", ""
cpm.Set2 "Tolerance 2 place", "2 Place: ±0.13(1/8" & Chr(34) & ")"
cpm.Set2 "Tolerance 3 place", "3 Place: ±0.063 (1/16" & Chr(34) & ")"
cpm.Set2 "Tolerance Angle", "Angle: ±1°"
'SI ASSEMBLY TOLERANCE
Case "SI_ASSEMBLY"
cpm.Set2 "Tolerance 0 place", "0 Place: ±3mm"
cpm.Set2 "Tolerance 1 place", "1 Place: ±1.5mm"
cpm.Set2 "Tolerance 2 place", "2 Place: ±0.8mm"
cpm.Set2 "Tolerance 3 place", "3 Place: ±0.05mm"
cpm.Set2 "Tolerance Angle", "Angle: ±1°"

End Select
End Sub