Question : SET FOCUS AND CHANGE COLOUR

What I would like to be able to do is when an OPTION BUTTON is selected the colour changes so that it shows that it is the one being used. The problem with this is that it does not recognise the If .Name Like "opt_*" Then 'Is it a commandbutton

Also How do I get it so that I can reselect the same option button to re-run it again when required, at present I have to select a different option the select the required one again.

Private Sub opt_FA_DEPOT_Click I want to be able to keep re-running this option

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:



Private Sub opt_FA_Created_Click()
'Call ChangeBtnColor
    FA_Created = InputBox("Enter a Y for Created to Search by?", "Filter by Created in SAPIENS")
    If FA_Created = "" Then
            Exit Sub
        Else
                Selection.AutoFilter Field:=17, Criteria1:=FA_Created
                Range("A4").Select
    End If
End Sub

Private Sub opt_FA_Crew_Click()
'Call ChangeBtnColor
    FA_Crew = InputBox("Enter a Surname to Search by?", "Filter by Name")
    If FA_Crew = "" Then
            Exit Sub
        Else
                Selection.AutoFilter Field:=3, Criteria1:=FA_Crew
                Range("A4").Select
    End If
End Sub

Private Sub opt_FA_Depot_Click()
'Call ChangeBtnColor
    FA_Depot = InputBox("Enter a Depot to Search by?", "Filter by DEPOT")
    If FA_Depot = "" Then
            Exit Sub
        Else
                Selection.AutoFilter Field:=1, Criteria1:=FA_Depot
                Range("A4").Select
    End If
End Sub

Private Sub opt_FA_Desig_Click()
'Call ChangeBtnColor
    FA_Desig = InputBox("Enter a Designation to Search by?", "Filter by Designation")
    If FA_Desig = "" Then
            Exit Sub
        Else
                Selection.AutoFilter Field:=3, Criteria1:=FA_Desig
                Range("A4").Select
    End If
End Sub

Private Sub opt_FA_SN_Click()
'Call ChangeBtnColor
    FA_SN = InputBox("Enter a Service Number to Search by?", "Filter by Service Number")
    If FA_SN = "" Then
            Exit Sub
        Else
                Selection.AutoFilter Field:=2, Criteria1:=FA_SN
                Range("A4").Select
    End If
End Sub
Private Sub ChangeBtnColor()
'Exit Sub

 With frm_F_Absence.ActiveControl
 
If .Name Like "opt_*" Then 'Is it a commandbutton
If .BackColor = &H80000003 Then  'Is it Light Blue
.BackColor = &H8000000D  'Change to default color
Else
.BackColor = &H80000003  'Change to Light Blue
End If
End If
 End With

End Sub

Answer : SET FOCUS AND CHANGE COLOUR

Do you already have the UCL and CUWL? 7.1.5 and above for the new licensing. I belive after you upgrade you just add the new license file and it will convert the dlu's to the new system so if you have 500 ip phones and 3000 dlu's I believe it would just switch back to 500 UCL/CUWL or how every many you bought.
If you have smartnet I would call them up and ask to be 100% sure since its new and not a real requirement until 9.0 I dont know if many will be doing it. Though they do have a great deal on converting from DLU's to get people to switch over.