How can I run multiple VBA code on the same worksheet

Question

I am currently running the code below:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Worksheet_SelectionChange Target

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If Intersect(.Cells, Range("E4:K120")) Is Nothing Or .Count > 1 Then Exit Sub
        Select Case .Value
        Case ""
            .Interior.ColorIndex = 3
        Case 1
            .Interior.ColorIndex = xlNone
            .Value = vbNullString
        Exit Sub
        Case Else
        Exit Sub
        End Select
            .Value = .Value + 1
    End With

End Sub

I now need to run a similar code for a different cell range on the same worksheet. I need the code to cycle through 4 different colours and text when cells within the N column are clicked. I am not a coder so this is way above my paygrade. Thanks!

Answer 1

Maybe something like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'Set a flag to let us know if we're in that "one color" range or "four color" range
    Dim GroupIndicator As Integer
    GroupIndicator = 0


    With Target
        'if our selection has more than one cell, just don't do anything (exit the sub)
        If .Count > 1 Then
            Exit Sub
        End If

        'if our selection is in the first range, set our indicator to 1.  if it's in the second range, set the indicator to 2
        If Not Intersect(.Cells, Range("E4:K120")) Is Nothing Then
            GroupIndicator = 1
        ElseIf Not Intersect(.Cells, Range("N4:N120")) Is Nothing Then
            GroupIndicator = 2
        Else
            Exit Sub
        End If

        'do this block if indicator is 1 (the first range).  If there's no value, make the cell red and put in a value of 1.  Otherwise, clear the color and remove the value
        If GroupIndicator = 1 Then
            If .Value = "" Then
                .Interior.ColorIndex = 3
                .Value = 1
            Else
                .Interior.ColorIndex = xlNone
                .Value = vbNullString
            End If
        End If

        'do this block if indicator is 2 (the second range).  increment our value and then assign the value indicated.
        If GroupIndicator = 2 Then
            .Value = .Value + 1

            Select Case .Value
                Case 1
                    .Interior.ColorIndex = 5
                Case 2
                    .Interior.ColorIndex = 6
                Case 3
                    .Interior.ColorIndex = 7
                Case 4
                    .Interior.ColorIndex = 8
                Case Else
                    .Interior.ColorIndex = xlNone
                    .Value = vbNullString
            End Select
        End If


    End With

End Sub