Private Sub CBx_Interval_AfterUpdate()
If CBx_Interval.Value = "Weekly" Then
CBx_Day.Value = ""
CBx_Day.Visible = True
Else: CBx_Day.Visible = False
End If
If CBx_Interval.Value = "Monthly" Then
mac_ToDos 'Macro
End If
End Sub
Thanks
Newby
Private Sub CBx_Interval_AfterUpdate()
If CBx_Interval.Value = "Weekly" Then
CBx_Day.Value = ""
CBx_Day.Visible = True
Else: CBx_Day.Visible = False
End If
If CBx_Interval.Value = "Monthly" Then
mac_ToDos 'Macro
End If
End Sub
Thanks
Newby