Interval and Frequency Timing

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Don't allow the coice of a Frequency Measure to be a longer time period
' than the Interval Metric
Dim strEndCol As String
If Not Intersect(Target, Range("C11")) Is Nothing Then
    With Target.Validation
        .Delete
        Select Case Target.Offset(-1, 0)
            Case "Second"
                strEndCol = "C"
            Case "Minute"
                strEndCol = "D"
            Case "Hour"
                strEndCol = "E"
            Case "Day"
                strEndCol = "F"
            Case "Week"
                strEndCol = "G"
            Case "Month"
                strEndCol = "H"
            Case "Year"
                strEndCol = "I"
        End Select
         .Add Type:=xlValidateList, Formula1:="=C56:" & strEndCol & "56"
    End With
End If

Select allOpen in new window