Only select value according to highlighted cells

[lewisthelemon]

Hello, I am trying a code which would select a value from a Data Validation Dropdown list only if the cell which is two blocks to its left is highlighted.

I have the following code which is wrong but just as an example:

Sub AssignBided()


Worksheets("Monday").Select
With Worksheets("Monday")
    If Hilight.range("B12") = True Then
        range("B12").Activate
        ActiveCell.Offset(0, -2).Select
        .Selection.Value = "ABC"
    End If
End With
End Sub

The code to highlight cells is as follows:

Sub Hilight(RNG As range, Hilight As Boolean)
    With RNG.Interior
        If Hilight Then
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = RGB(100, 250, 150)
            .TintAndShade = 0
            .PatternTintAndShade = 0
        Else
            .Pattern = xlNone
            .PatternTintAndShade = 0
        End If
    End With
End Sub

This Sub is used as follows:

Dim L8Product As String


Dim i As Long
Dim L8Rnge As range


L8Product = range("Line8_P_Mon")
'Line 8 Resource requirement code


'Determine if change was made in cell B39
If Not Intersect(Target, Me.range("Line8_P_Mon, Line11_P_Mon, Line12_P_Mon, Line10_P_Mon")) Is Nothing Then
        Hilight range("Line8_Hilight_Mon, Line11_Hilight_Mon, Line12_Hilight_Mon, Line10_Hilight_Mon, Prep_Hilight_Mon"), False
'Below Code searches in the KP and Osgood Table and then highlights the appropriate cells
    If Trim(L8Product) <> "" Then
        With Sheets("Products").range("KP_Table")                     'searchs in the KP Table on Sheet Overtime_Pos_Table
            
            'The code below will search the KP table for the product that you will select from the Line 8 drop down
            Set L8Rnge = .Find(what:=L8Product, _
                            after:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            lookat:=xlWhole, _
                            searchorder:=xlByRows, _
                            searchdirection:=xlNext, _
                            MatchCase:=False)
            If Not L8Rnge Is Nothing Then
                    Hilight range("KP_Hilight_Mon"), True               'Hilights the cells for the KP and the Prep material required
            Else: With Sheets("Products").range("Osgood_Table")
                    Set L8Rnge = .Find(what:=L8Product, _
                                    after:=.Cells(.Cells.Count), _
                                    LookIn:=xlValues, _
                                    lookat:=xlWhole, _
                                    searchorder:=xlByRows, _
                                    searchdirection:=xlNext, _
                                    MatchCase:=False)
                    If Not L8Rnge Is Nothing Then
                            Hilight range("Osgood_Hilight_Mon"), True   'Hilights the cells for the Osgood and the Prep material required
                    End If
                  End With
            End If
        End With
    Else: Hilight range("Line8_Hilight_Mon"), False
    End If
End If

Thanks in advance. Been trying this for a long time now